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IDENTIFICATION 

PRODUCT NAME: CNDUTAO DUV11 OFLNE XMT TSTS 
PRODUCT CODE :AC=T455A-MC 

PRODUCT DATE:DEC 1982 

MAINTAINER :DIAGNOSTICS SERVICES/ISS 
AUTHOR: K.LIND 


(C)_ 1982,1983 
DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS. 


THE INFORMATION IN THIS ewe 1S SUBJECT TO CHANG 
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQU 
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBIL 
THAT MAY APPEAR IN THIS DOCUMENT. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISH 
MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 


E 
T 
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBI 
RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NO 


WITHOUT NOTICE AND 
UIPMENT CORPORATION. 
TY FOR ANY ERRORS 


=e 


D UNDER A LICENSE AND 
ERMS OF SUCH LICENSE. 
LIT 
TS 


ITY FOR THE USE OF 
UPPLIED BY DIGITAL. 


oREM 


«REM 


SEQ 0001 
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GENERAL DESCRIPTION 


THIS DIAGNOSTIC CAN CHAIN 
16 DEV vices r . BE ot LE 
MAKES ONE P oy 


S ake NOSTIC 
AND CONTINUES EXERCISING 


N UNTIL 


1. THE DUV11 OFFLINE TRANSMITTER TESTS VERIFY THAT THE TRANSMITTER 


SECTION PROVIDES THE CORRECT ERROR FLAGS,AND THAT IT 
TRANSMITS CHARACTERS THRU THE BIT WINDOW AT THE CORRECT 
NUMBER OF BITS PER CHARACTER. 

2. REQUIREMENTS 
PDP=11/21 COMPUTER (LSI) 
DUV11 SYNCRONOUS/ISOCRONOUS OPTION 
ONE CONSOLE TELETYPE OR EQUIVALENT 


2.2 STORAGE 
THE PROGRAM LOADS INTO 4K OF MEMORY WITH BOOTSTRAP 
3. LOADING PROCEDURE 
THE STANDARD PROCEDURE FOR LOADING ABSOLUTE BINARY TAPES 
IS TO BE USED. 
STARTING ADDRESS 
FOR ABSOLUTE LOADER 
4k 017500 
8k 037500 
12k 057500 
16K 077500 
20K 117500 
24K 137500 
28K 157500 
4. STARTING PROCEDURE 


4.1 CONTROL SWITCH SETTINGS 
NOTE: att ag Ys RESIDE INTERNAL TO THE CPU AT ADDRESS 


E SET VIA THE CONSOLE TTY BY DIRECTLY 


MODIFYING tote " 6. 


NOTE: RUNNING, UNDER, ate 11, THERE IS A USER SWITC 
ALLED “SuSWR'’. IN ORDER TO BE FLEXIBLE ON 
ust CONNECTOR, INE BIT PASSES STATUS TO APT-11. 
1 0 IN $SUSWR REFLECTS THIS STATUS, A 0 = CONNECTOR 


SEQ 0002 
«REM ®t 


H REGISTER 
THE AVAILIBILITY OF THE 
¢ 


CNDUT=A MACY11 
CNDUT1.M11 


4.1.1 


4.1.2 


4.1.3 


4.1.4 


4.2 


3% 
4.3.1 


4.3.2 
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10-DEC- 
PRESENT A 1 = CONNECTOR NOT AVAILIBLE. 
THE USER CHANGES THE CONTENTS OF THIS LOCATION 
WHEN BUILDING THE — TABLE, BY ANSWERING THE 
OMPT "SWITCH 2°. 
AFTER PROGRAM LOAD CINITIAL PROGRAM START) 
ALL CONSOLE SWITCHES D 
TO MODIFY DEVICE VECTOR AND CONTROL REGISTER ADDRESSES 
AFTER PROGRAM RESTART OR TO RUN MULTIPLE DEVICES 


$wOd=1 
TO START PROGRAM AT SELECTED TEST AFTER A PROGRAM RESTART 
cutest (ONLY IN SINGLE DEVICE TESTS) 


TO LOCK ton SEL - EST AFTER A PROGRAM RESTART 


TED T 
SINGLE DEVICE TESTS) 


CTED 
N SI 
Swi4=1 

NOTE1: IN GENERAL SWO1 WILL BE USED WHEN Swi4=1 | 
NOTE2: WITHOUT SWO1=1 ‘‘LOCK ON TEST’ WILL DEFAUL 
STARTING ADDRESS 

THE STARTING ADDRESS FOR ALL TESTS IS 000200 

THE RETARTING ADDRESS FOR ALL TESTS IS werte 

THE STARTING ADDRESS TO ENTER A SELECTED TEST IS 000200 
THE STARTING ADDRESS TO LOCK ON TES! IS 66020 0 

PROGRAM AND/OR OPERATOR ACTION 

INITIAL PROGRAM START 

4.3.1.1 LOAD PROGRAM INTO MEMORY WITH ABSOLUTE LOADER 
4.3.1.2 SET SWITCH REGISTER (LOC. 176) TO ZERO. 

4.3.1.3 TYPE 2006. 


4.3.1.4 PROGRAM WILL START. 


mm 
=—c 


4.3.1.5 THE PROGRAM WILL TYPE “DUV11 CNDUT=A TAPE D°* (ONCE ONLY) 
4.3.1.6 THE PROGRAM WILL TYPE ‘“'R'’ TO INDICATE THAT IT IS ABOUT 

16 START TESTING ,AND THEN TESTING WILL BEGIN 

PROGRAM RESTART WITH ALL SWITCHES DOWN 

4.3.2.1 THE PROGRAM WILL TYPE ‘’R'’ AND WILL COMMENCE TESTING 


SEQ 0003 
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CNDUT1.M11 
4.3.3 
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PROGRAM RESTART WITH Sw00=1 

4.3.3.1 SET SWITCH REGISTER (LOC. 176) TO A 000001. 
4.3.3.2 TYPE 2006. 

4.3.3.3 PROGRAM WILL START. 


4.3.3.4 THE PROGRAM WILL TYPE ‘' 1ST DEVICE: RECEIVER CONTROL REGISTER 
ADDRESS" AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 
4.3.3.5 TYPE IN THE ADDRESS OF THE FIRST RECEIVER CONTROL 
REGISTER ADDRESS OF THE DUV11 TO BE TESTED 


FOLLOWED BY A <CARRIAGE RETURN> 
IF AN INCORRECT ADDRESS IS TYPED ,THE PROGRAM WILL TYPE ‘'?"' 
AND WILL THEN REPEAT THE MESSAGE OF 4.3.3.4 


4.3.3.6 THE PROGRAM WILL TYPE “VECTOR ADDRESS~-"' AND WAIT FOR AN 
inPuT FROM THE TELETYPE KEYBOARD 


4.3.3.7 TYPE IN THE BASE RECEIVER INTERRUPT VECTOR ADDRESS 
FOR THE DUV11 TO BE TESTED FOLLOWED BY A <CARRIAGE RETURN> 
IF AN INCORRECT ADDRESS IS TYPED Se PROGRAM WILL TYPE ‘'?"° 
AND WILL THEN REPEAT THE MESSAGE OF 4.3.3.6 


4.3.3.8 oy PROGRAM WILL TYPE ‘‘ARE YOU RUNNING MULTIPLE DEVICES ?°° 
Y OR N)="" AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


4.3.3.9 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED BY A 
<CARRIAGE RETURN> 


IF AN INCORRECT ANSWER IS GIVEN, THE PROGRAM WILL TYPE ‘''?"* 
AND WILL THEN REPEAT THE MESSAGE OF 4.3.3. 


IF A “'NO’’ ANSWER IS GIVEN: JUMP TO SECTION 4.3.3.12 
IF A *‘YES*’ ANSWER IS GIVEN: THE NEXT QUESTION IS ASKED 
4.3.3.10 THE PROGRAM WILL TYPE “LAST DEVICE:RECEIVER CONTR 
REGISTER ADDRESS="" AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 
4.3.3.11 TYPE IN THE ADDRESS OF THE LAST RECEIVER CONTROL REGISTER 
ADDRESS OF THE DUVI1 TO BE TESTED FOLLOWED BY A <CARRIAGE RETURN> 


IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL TYPE ‘'?"° 
AND WILL THEN REPEAT THE MESSAGE OF 4.3.3.10 
NOTE:ALL ADDRESSES SHALL BE CONTIGUOUS 


4.3.3.11.1 IF AN ‘‘OUT OF RANGE'* ADDRESS IS TYPED 
IE. MORE THAN 16 (10) DEVICES AWAY (UPWARDS).....THE 


SEQ 0004 
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) 14=DEC=82 10:01 PAGE 57-4 
2 13:50 SEQ 0005 


PROGRAM WILL TYPE ‘OUT OF RANGE:RETYPE LAST DEVICE RXCSR ADDRESS-"" 
AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


4.3.3.11.2 TYPE IN THE ADDRESS OF THE LAST RECEIVER CONTROL 
REGISTER ADDRESS OF ng DUV11 TO BE TESTED FOLLOWED 
BY A <CARRIAGE SE TURN 


IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL TYPE ‘'?"" 
AND WILL REPEAT THE MESSAGE OF 4.3.3.11.1 


IF A Pace ADDRESS LOWER THAN 1ST DEVICE ADDRESS a TYPED. wccccccces 
sess eeesecs S_NO PROTECTION FOR THIS. 
THE PROGRAM WILL DEFAULT TO TWO DEVICES ACTIVE (UPWARDS FROM 

S TO IDENTICAL ADDRESSES 


F RS EVICE. 
OBSERVE LOCATION @ ACTREG: SEE SECTION 7.2 


4.3.3.12 THE PROGRAM ba ay *“# OF SYNC Peas 
SELECTED (1 OR 2)="" AND WAIT FOR AN INPUT FROM THE TELETYPE 
Salton baSqa" REFER TO MANUAL FOR PROPER SWITCH SETTINGS OF 


4.3.3.13 TYPE IN THE APPROPRIATE ANSWER ‘‘l’ OR ‘'2"* FOLLOWED 
44 tue Samey RETURN>.(NOTE:ALL MULTIPLE DEVICES MUST 


IF AN INCORRECT ANSWER IS TYPED 
AND WILL REPEAT THE MESSAGE OF 4, 


THE P 

:3.3.1 

4.3.3.14 THE PROGRAM WILL TYPE *’ IS SEC XMIT SWITCH E55=2 ON? (Y OR N)-"" 
AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


4.3.3.15 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED 
eS Se the cin + tema -(NOTE THAT ALL MULTIPLE DEVICES 


H OGRAM WILL TYPE ‘'?°° 


E PR 
3.12 
S 
E 


IF AN INCORRECT ANSWER IS TYPED , “THe te PROGRAM WILL TYPE °'?*' 
AND WILL REPEAT THE MESSAGE OF 4.3 


4.3.3.16 THE PROGRAM WILL TYPE “IS SEC RE 
(Y OR N)-"" AND WAIT FOR AN INPUT FROM TH 


«.3.3.17 TYPE IN THE APPROPRIATE ANSWER YES 
BY A <CARRIAGE RETURN>. (NOTE: ALL MULTIPL 


55-3 ON? 
KEYBOARD 
OLLOWED 

ES MUST Be THE SAME) 


C SWITCH E 
E TELETYPE 
ES OR NO F 
IPLE DEVIC 


IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL TYPE ‘'?*' 
AND WILL REPEAT THE MESSAGE OF 4.3.3.1 


4.3.3.18 THE PROGRAM WILL TYPE “‘IS OPT CLR ENABLE SWITCH 
E55-1 ON? (Y¥ OR N)-"' AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 
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4.3.3.19 TYPE _IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED 
BY A <CARRIAGE RETURN>. (NOTE: ALL MULTIPLE DEVICES MUST BE THE SAME) 


IF AN INCORRECT ANSWER IS TYPED ,TH b+ egnee WILL TYPE °'?"° 
AND WILL REPEAT THE MESSAGE OF 4.3. 


4.3.3.20 THE PROGRAM WILL TYPE ‘‘ARE YOU RUNNING IN MAINT. 
MODE EXTERNAL ? AND ......D0 YOU HAVE THE EXTERNAL MODEM 
BYPASS JUMPER CONNECTOR ON ? (Y OR N)="' AND WAIT FOR AN 


INPUT FROM THE TELETYPE KEYBOARD 
4.3.3.21 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED BY 
A <CARRIAGE RETURN>. (NOTE: ALL MULTIPLE DEVICES MUST BE THE SAME) 
IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL TYPE ‘'?"° 
AND WILL REPEAT THE MESSAGE OF 4.3.3.20 


4.3.3.22 THE PROGRAM WILL TYPE ‘'R'’ TO INDICATE T ~~ IT 
HAS STARTED AND WILL COMMENCE TESTING AT TEST 1 


4.3.4 PROGRAM RESTART WITH SWO1=1 


NOTE: THIS WILL ONLY WORK WHEN A SINGLE DEVICE IS SELECTED 
eoelT WILL NOT WORK IF MULTIPLE DEVICES ARE SELECTED 
IF MULTIPLE oily WERE eT istics eLOAD 000200, 
TIPLE DEVICE QUESTION 


sre SELECT SWOO=1 AND ANSWER ‘'NO'’ TO THE MUL 


4.3.4.1 SET SWO1=1 IN SWITCH REG (LOC. 176) 
4.3.4.2 TYPE 2006. 
4.3.4.3 PROGRAM WILL START. 


4.3.4.4 THE PROGRAM WILL A 3 “TEST PC-"" AND WAIT FOR AN INPUT FROM 
THE TELETYPE KEYBOARD 


4.3.4.5 TYPE IN THE ADDRESS OF THE TEST AT WHICH THE PROGRAM IS TO 
BE STARTED FOLLOWED BY A <CARRIAGE RETURN> 


4.3.4.6 THE PROGRAM WILL TYPE ‘’R'’ TO INDICATE THAT IT HAS STARTED 
TESTING AT THE SELECTED TEST 


NOTE : CARE MUST BE TAKEN WHEN THI 
SINCE THERE IS NO PROT ECTION AGA 
THAT IS IN THE MIDDLE OF A TEST 
4.3.5 PROGRAM RESTART WITH SW14 =1 
NOTE: THIS WIL ONLY WORK WHEN A SINGLE DEVICE IS SELECTED 
SEE NOTE IN 4.3.4 FOR MORE DETAILS 
4.3.5.1 SET SW14=1 IN SWITCH REG. (LOC. 176) 


4.3.5.2 TYPE 2006. 


S$ FEATURE IS USED 
INST SELECTI 


F 
NS NG AN ADDRESS 
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50 
4.3.5.3 PROGRAM WILL START. 


4.3.5.4 Hes PROGRAM WILL TYPE ‘‘LOCK_ON SELECTED TEST ? (Y OR N)="’ 
D WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


4.3.5.5 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED BY A 
<CARRIAGE RETURN> 


IF A_NO ANSWER IS GIVEN: THIS LOCK ON TEST WILL BE IGNORED 
AND THE PROGRAM WILL TYPE ''R’’ TO INDICATE THAT IT HAS STARTED 
TESTING AT TEST 1 
4.3.5.6 Lf A YES ANSWER WAS GIVEN: THE PROGRAM WILL ACT AS FOLLOWS... 
THE PROGRAM WILL TYPE "R' TO INDICATE THAT IT HAS STARTED 
TESTING AT TEST 1 AND WILL REMAIN IN TEST 1 UNTIL HALTED 
IF ANY KEY IS STRUCK ON THE TELETYPE , THE PROGRAM 
WILL FREEZE ON THE NEXT TEST UNTIL A KEY IS STRUCK ON 
THE TELETYPE AND SO FORTH THRU THE PROGRAM. IF SWO1 =1_ IT 
WILL PERFORM AS IN SECTION 4.3.4 ALLOWING ONE TO FREEZE 
ON A SELECTED TEST RATHER THAN DEFAULTING TO TEST 


OPERATING PROCEDURE 
ge! oem anv tT on ak (INTERNAL TO THE CPU, ACCESSED VIA LOC. 


5 =1 RRO 
Swi4 =1 LOOP ON CURRENT TEST 
$wi3 =1 _ INHIBIT ERROR TYPEOUT 
Swi =1 INHIBIT ITERATIONS 
swi0 =1 ESCAPE TO NEXT TEST ON ERROR 
SwO9 =1 LOOP ON ERROR 
$wO1 =1 RESTART PROGRAM AT SELECTED TEST 
$wO00 =1 RESELECT VECTOR AND CONTROL REGIST ie ADRESSES 
GPARAMETERS AFTER A_ PROGRAM RESTART 
TO INHIBIT “END OF PASS‘ TYPEOUT = TURN TELETYPE OFF 


ERRORS 


ERROR HALTS (UNDER LS 
THERE ARE FOUR DISTIN 


PC+2 = 
WHERE Pt ae 1S. THE ADDRESS OF THE CALL TO THE ERROR HANLLER +2 


REFER TO THE ABOVE “‘HLT’’ IN DIAGNOSTIC FOR ERROR DESCRIPTION 


CHECK ADDRESS @ RXCSR: TO LOCATE THE DEVICE PRESENTLY UNDER 
TEST WHEN RUNNING MULTIPLE DEVICES 


PC ; Meenas emer PC 
REGIST EXPECTED ACTUAL 
NORARX. YvYYYY 222222 


WHERE 16XXXX IS THE ADDRESS OF THE FAILING DEVICE REGISTER 


1 ALL_HALT ERRORS RETURN CONTROL TO O.D.T.) 
CT ERROR TYPEOUTS 


176). 


SEQ 0007 
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6.1.3 


6.1.4 


6.1.5 


6.2 
6.2.1 


6.2.2 


6.2.3 


6.2.4 


6.3 
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WHERE YYYYYY IS THE EXPECTED CONTENTS OF THAT REGISTER 

WHERE 2222272 IS THE ACTUAL CONTENTS OF THAT REGISTER 

PC #2 = RECEIVER ERROR PC 

REGISTER EXPECTED ACTUAL 

TOXXXX YYYYYY 222222 

WHERE 16XXXX IS THE ADDRESS OF THE FAILING RECEIVER (RXDBUF) REGISTER 
WHERE YYYYYY IS THE EXPECTED DATA CONTENTS OF THAT REGISTER 

WHERE 222222 IS THE ACTUAL DATA CONTENTS OF THAT REGISTER 

PC +2 = TRANSMITTER ERROR PC 

REGISTER EXPECTED ACTUAL 

TOXKKK YYYYYY 222222 

WHERE 16XXXX IS THE ADDRESS OF THE FAILING TRANSMITTER (TXCSR) REGISTER 
WHERE YYYYYY IS THE EXPECTED CONTENTS OF THAT REGISTER 

WHERE 222222 IS THE ACTUAL CONTENTS OF THAT REGISTER 


ERROR DESCRIPTIONS 
SEE LISTINGS FOR DETAILS OF ERRORS 


ERROR RECOVERY 


Sswi5 =0 
IF THE PROGRAM IS RUN WITH SW15 =0 ,NO OPERATOR ACTION IS 
REQUIRED TO CONTINUE TESTING 


wi5 = 
if THE 'PROGRAN IS RUN WITH SW15 =1 ,TO CONTINUE TESTING 
AFTER THE PROGRAM HAS HALTED »PRESS THE PROCESSOR 
CONSOLE “CONTINUE SWITCH" 


NOTE: THE PC + 2 OF THE “‘HLT’’ WILL BE DISPLAYED IN THE DATA LIGHTS 


ILLEGAL INTERRUPTS 

IF AN INTERRUPT OCCURS TO A VECTOR ADDRESS NOT SELECTED 
DURING PROGRAM INITIALIZATION, THE PROGRAM pence A IN 
THE TRAPCATCHER. THE ADDRESS AT WHICH THE P 
HALTS IS 2 GREATER THAN THE ADDRESS TO UHICH THe  jmaeaa 
OCCURED. THE PROGRAM MUST BE RESTARTED AT 000200 1 

RECOVER FROM THIS ERROR. 


soot et TROUBLESHOOTING AIDS ERRCNT: & PASCN 
CHECK THESE TWO TAG LOCATIONS FOR TOTAL # OF ERRORS AND PASSES RESPECTIVELY. 
LOADING 000200 AND RESTARTING WILL CLEAR THESE LOCATIONS. 


OF PASS ROUTINE 
i. bg bias MENTIONED HERE FOR CONVENIENCE 


SEQ 0008 


CNDUT=A MACY11_ 30(1046) 5 peters 10:01 PAGE 57-8 
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7.2 


7.2.1 


7.2.2 


7.3 


7.3.1 
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END OF PASS TAPE Y 
1OXXKX = DEVICE 


WHERE Y IS THE TAPE LOADED 

WHERE 16XXXX IS THE DEVICE'S BASE REGISTER ADDRESS 

TO INHIBIT THIS TYPEOQUT = TURN TELETYPE OFF 

RESTRICTIONS 

MULTIPLE DEVICES 

UP TO 16(10) DEVICES MAY BE TESTED. HOWEVER, THEY 

MUST HAVE CONTIGUOUS ADDRESSES AND VECTORS 

NOTE: IF ALL DEVICES UNDER TEST HAVE THE SAME INTERRUPT VECTOR 
AN CHAN “ZERO: ADD #10,BA SE IV NEXT SLOCK 

(VECTORS)’’ TO “‘ZERO: ADD #0 ,BASEIV' 

THEREBY THE VECTOR ADDRESSES WILL NOT BE. 

UPDATED AFTER EACH PASS. 

DISQUALIFYING DEVICES WHEN RUNNING MULTIPLE DEVICES 


WHEN RUNNING MULTIPLE DEVICES AN ACTIVE BIT IS SET 
i bach bevits ery UNDER TEST IE. BIT 0 FOR 


DEVICE OBIT R DEVICE 1 
TO DISQUALIFY Devices: 
IF DEVICE 0 IS TO BE DISQUALIFIED ,SIMPLY RESTART 
PROGRAM WITH SWOO =1 AND OMIT THE FIRST DEVICE. 
IF HOWEVER, DEVICES 1 THRU 15 OR ANY COMBINATION THEREOF 
ARE TO BE DISQUALIFIED....LOAD THE LOCATION OF ACTREG: 
OBSERVE THE ACTIVE BITS (ACTIVE =1, NONACTIVE = 0) 
AND DEPOSIT 0 WHERE THOSE DEVICES ARE TO BE DISQUALIFIED 
7.2.2.1 he RESTART...TYPE 200G.. 

THE PROGRAM WILL CONT 


WE WITH THE DEVICE IT WAS IN BEFORE HALTING. 
1 


I 
] 
V.2c202 2020000OR -SET SWOO=1 IN SWITCH REG (LOC. 176) AND TYPE 200G.... 
epee, 3 “QUESTION :1ST DEVICE : ETC. ...ceseeee 
«e+e THE PROGRAM WILL CONTINUE with DEVICE 0 


7.2.2.3 IF ALL DEVICES ARE DISQUALIFIED BY MISTAKE _ THE PROGRAM 
WILL TYPEOUT AN ERROR MESSAGE.......TYPE 2006. 


CABLE DELAYS 
NOTE: EXTERNAL LOOP BACK TESTS ONLY (MODEM CABLE WITH H315 CONNECTOR ON) 


TO PROVIDE wr US lest peuey FOR CLOCK SIGNAL OVER THE CABLE, 
LOCATION "WOLD:'* MUST BE MODIFIED TO ACCOMODATE FOR FASTER MACHINES. 
PRESENTLY “HOLD: - 230 IS SUFFICIENT TIME ON AN 11/21 MACHINE. 


BASICALLY DON'T TRY TO EXCEED 10K TO 12K RATE USING THE EIA DRIVERS 


a) =; 


SEQ 0009 
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CNDUT1.M11 10-DEC-82 13:50 SEQ 0010 
7.4 TO USE THE *'XOR'’ TESTER s E BRANCH AROUND THE ‘‘xOR"’ 
CODE MUST BE PATCHED TO A ‘'NOP’’. (SEE LISTINGS FOR DETAILS) 
8. DEFAULT PARAMETERS: 
1ST DEVICE: RECEIVER CONTROL REGISTER ADDRESS= RXCSR: 174300 
VECTOR ADDRESS=- DURIV: 330 
ARE YOU RUNNING MULTIPLE DEVICES ?= NO MULTD: 0 
LAST DEVICE: RECEIVER CONTROL REGISTER ADDRESS= LASTADD: 0 
# OF SYNC CHARS SELECTED = 2 SYNCNO: 377 
1S SEC XMIT SWITCH E55-2 ON?= YES SEXMIT: 377 
IS SEC REC SWITCH E55-3 ON?= YES SEREC: 377 


IS OPT CLR ENABLE SWITCH E55-1 ON?= YES OPTCLR: 377 
DO YOU HAVE THE EXTERNAL MODEM BYPASS JUMPER 


CONNECTOR ON (H315)= YES JMRBY: 377 
9. PROGRAM DESCRIPTION 
* 
REM * 
9.1 THIS PROGRAM PERFORMS THE OFFLINE TRANSMITTER SECTION TESTING 
OF THE DEVICE 
SEE LISTING FOR DETAILS 4 
REM * 


10. FLOW CHARTS: RECEIVER FLOW, TRANSMITTER FLOW, TRANSMITTER & RECEIVER FLOW 
11, REVISION HISTORY 


Ay ydh DIAGNOSTIC _ MODIFIED TO WORK IN AL 4 — 
at yard ¥340 WAS CHANGED TO 300 WHEREVER Bt RED 


12. 
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6584 
6585 
6586 
6597 
6611 
6612 
6613 
6674 
6675 
6880 
7008 
7009 ~SBTTL APT COMMUNICATIONS ROUTINE 
(2) PARRA RERAALASELSSLAESLESLLSLESLESESIE LE CESICLOEOCEOSCLAESCLLOCCLLLLL SS 
(1) 000000 112767 000001 000236 $ATY1: Mova. #1 SFFLG ::T0 REPORT FATAL ERROR 
(1) 000006 112767 000001 000226 $ATY3: MOVB #1 _$MFLG 3:10 TYPE A MESSAGE 
(1) 000014 000403 BR SATYC 
(1) 000016 112767 000001 000220 S$ATY4: move #1,SFFLG 3:TO ONLY REPORT FATAL ERROR 
(1) 000024 SATYC: 
(3) 000024 010046 MOV RO,=(SP) i: PUSH RO ON STACK 
(3) 000026 010146 MOV R1,=(SP) PUSH R1 ON STACK 
(1) 000030 105767 000206 TSTB  $MFLG 3 3 SHOULD TYPE A MESSAGE? 
(1) 000034 001450 BEQ 4 T: 
(1) 000036 122767 000001 001502 CMPB ss #AP TENV, SENV i: OPERATING UNDER APT? 
(1) 000044 001031 BNE N 
(1) 000046 132767 000100 001473 BITB §#APTSPOOL,S$ENVM 3 $SHOULD SPOOL MESSAGES? 
(1) 000054 001425 BEQ 3$ FN 
(1) 000056 017600 000004 MOV a4 (SP) . gR0 DIGET NESSAGE ADDR. 
(1) 000062 062766 000002 000004 ADD #2,4 P RETURN ADDR 
(1) 000070 005767 001432 1$: TST snécT ype 33SEE IF “DONE w/ LAST XMISSION? 
(1) 000074 001375 BNE 1$ ::IF NOT: WAIT 
(1) 000076 010067 001440 MOV .$MSG 
(1) >;PUT ADDR IN MAILBOX 
(1) 000102 105720 2s: TSTB (RO) + zzFIND END OF MESSAGE 
(1) 000104 001376 BNE 2$ 
(1) 000106 166700 001430 SUB SMSGAD,RO ::SUB START OF MESSAGE 
(1) 000112 006200 ASR RO 33;GET MESSAGE LNGTH IN WORDS 
(1) 000114 010067 001424 MOV RO, SMSGLGT 7;PUT LENGTH IN MAILBOX 
(1) 000120 012767 000004 001400 MOV #4, SMSGTYPE [:TELL APT TO TAKE MSG. 
(1) 000126 000413 BR 
(1) 000130 017667 000004 000016 3: MOV a4 (SP) ,4$ 33PUT MSG ADDR IN JSR LINKAGE 
(1) 000136 062766 000002 000004 ADD #2,4( -BUMP RETURN ADDRESS 
(3) 000144 016746 177626 MOV 177776, =<SP) ::PUSH be ON STACK 
(1) 00150 00476 012712 R PC, $TYPE 3:CALL TYPE MACRO 
(1) 000154 000000 : .WORD 0 
(1) 000156 S$: 
(1) 000156 105767 000062 10$: STB ~—s- SFFLG ::SHOULD REPORT FATAL ERROR? 
(1) 000162 001416 BEQ 12$ S:1F NOT: 
(1) 000164 005767 001356 TST SENV :;RUNNING UNDER APT? 
(1) 000170 001413 BEQ 12$ [IF NOT: BR 
(1) 000172 005767 001330 11$: TST SMSGTYPE i :EINISHED LAST MESSAGE ? 
(1) 000176 001375 BNE 11$ F NOT: WAIT 
(1) 000200 017667 000004 001322 MOV a4(SP),SFATAL  ::GET ERROR oe 
(1) 000206 062766 000002 000004 ADD #2,4(5P) P RETURN ADDR. 
(1) 000214 005267 001306 INC SMSGTYPE si TELL abi? "0 TAKE ERR 
(1) 000220 105067 000020 128: CLRB so SFFLG [CLEAR FATAL FLAG 


SEQ 0012 


S ROUTINE 


PAGE 58-1 
APT COMMUNICATION 


10:01 


30(1046) _14=DEC-82 
30-OCT-82 12:22 


CNDUT=A MACY11 
CNDUT2.M11 


R 

R 

S 

S 

R 

G 
:7FATAL FLAG 


G 

G 

. 

. 
;;LOG FLAG 
" 


100 


200 
APTCSUP=040 


APTENV=001 


APTSIZE 
APTSPOOL 
=1 


$TN 


PPP PPPP EOC oP OO IE GOI 
Det al fh ad oooh sel el eel el ee eh el eh ee Dd eel 
he ee ao 

enn 
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APT COMMUNICATIONS ROUTINE 
-ENABLE ABS ws 


sDUV11 CNDUT-A_TAPE D 

sCOPYRIGHT 1977, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 
STARTING PROCEDURE 
;TYPE 2006 


“PROGRAM WILL TYPE “‘DUV11 CNDUT©A TAPE D ** 

;PROGRAM WILL TYPE "'R' TO INDICATE THAT TESTING HAS STARTED 
[AT THE END OF A PASS, PROGRAM WILL TYPE "END OF PASS TAPE D’° 
SAND THEN RESUME TESTING 


~SBTTL BASIC DEFINITIONS 


* INITIAL ADDRESS OF THE STACK POINTER *#* 1100 eee 
SEQUIV EMT, ERROR ;sBASIC DEFINITION OF ERROR CALL 
sEQUIV I0T,SCOPE >:BASIC DEFIN: ION OF SCOPE CALL 
s*MISCELLANEOUS DEFINITIONS 

HT= 11 33 FOR HORIZONTAL TAB 

LF= 12 >:CODE FOR LINE FEED 

CR= 15 $:CODE FOR CARRIAGE RETURN 
CRLF= 200 ?:CODE FOR CARRIAGE RETURN=LINE FEED 

PS= 177776 : PROCESSOR STATUS WORD 

.EQUIV PS,PSW 

STKLMT= 177774 s:STACK LIMIT REGISTER 

PIRQ= 177772 ?:PROGRAM INTERRUPT REQUEST REGISTER 

DSWR= 177570 S:HARDWARE SWITCH REGISTER 

DDISP= 177570 “HARDWARE DISPLAY REGISTER 
eeeee THE FOLLOWING ODT START ADDRESS FOR SBC 11/21 IS ADDED 

OpTST= 170000 

-*GENERAL PURPOSE REGISTER DEFINITIONS 

RO= 20 S:GENERAL REGISTER 

Ri= “1 S:GENERAL REGISTER 

Re: xe 33G NERAL REGISTER 

R3= % ::GENERAL REGISTER 

R4= 24 ee ENERAL REGISTER 

R5= “5 S:GENERAL REGISTER 

R6= 16 ‘:GENERAL REGISTER 

R7= 27 [GENERAL REGISTER 

SP= 16 >:STACK POINTER 

PC= 17 ::PROGRAM COUNTER 

:*PRIORITY LEVEL DEFINITIONS 

ProO= OO s;PRIORITY LEVEL 0 

PRi= 49 >:PRIORITY LEVEL 1 

PR¢= 100 *:PRIORITY LEVEL ; 

PR3= 140 s PRIORITY LEVEL 

PR4= 00 S:PRIORITY LEVEL 4 

PR5= 40 S:PRIORITY LEVEL 5 

PR6= 00 ::PRIORITY LEVEL : 

PR7= 40 ::PRIORITY LEVEL 

: «SWITCH REGISTER" SWITCH DEFINITIONS 

$w15= 10000 


SEQ 0014 


SEQ 0015 
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3; TIME OUT AND OTHER ERRORS 


INITIONS (BITOO TO BIT15) 
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PAGE 61- 
BASIC DEFIN 
RESVEC= 10 
TBITVEC=14 
TRIVEC= 14 
BPTVEC= 14 
IOTVEC= 20 
PWRVEC= 24 
EMTVEC= 30 
TRAPVEC=34 
TKVEC= 60 
TPVEC= 64 

teeee THE 
LKVEC= 100 
BRKVEC= 140 
PIRQVEC=240 


i) 
TIONS 
zeRE 
3") 
z3TR 
33BR 
33 1N 
4 
2 ofr 
sety 
“sTT 
FOLLOWING BREAK 
SIBR 


A 


o*O00-—-4Im 
Son aOR —aZe 
m , 


z<-O-~< 


D AND ILLEGAL INSTRUCTIONS 


0 
T 
CK 
CT 
IN 


-——2 
= wv 


ARD VECTOR 


T TRAP (BPT) 
PUT TRAP (IOT) **SCOPE** 


io (EMT) *#ERRORee 


R VECTOR 
K VECTOR CLOCK VECTOR ARE INCLUDED 


OR 
TERRUPT REQUEST VECTOR 


SEQ 0016 
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‘¢ sSTANDARD INTERRUPT VECTORS 

(2) 

@) 000174 22174 

(2) 000174 000000 DISPREG:0 

(2) 000176 000000 ousrg'e 

(2) 000200 -=200 

tS} 000200 000167 001746 JMP «START :GO TO START OF PROGRAM 

(2) 

(2) 

() 001100 -=1100 

(2) 001100 000900 -WORD 0 

i$} 001102 177570 LIGHTS:177570 

(3) 

iH ;PROGRAM CONTROL PARAMETERS 

(2) 001104 0600000 RETURN: 0 

(2) 001106 000000 NEXT: 0 ADDRESS of NEXT TEST TO BE “ane 
(2) 001110 000000 LOCK: 0Q ;ADDRESS FOR LOCK ll ‘a ENT 

(2) 001112 000000 PASCNT: 0 ; ADDRESS’ CONTAINING. PASS COUN 

(2) 001114 000000 ERRCNT: 0 RROR COUNT 

+s: 001116 000000 SAVSP: 0 7 STACK POINTER STORAGE 

‘s) PROGRAM VARIABLES 

(2) 001120 000020 HOLD: 20 ; TEMPORARY STORAGE= or TIME FOR CABLES 
(2) 001122 000000 SHIFT: Q STEMPORARY STORAGE= # OF SHIFTS PER CHAR 
(2) 001124 000000 COUNT: 0 S TEMPORARY STORAGE= # OF TIMES A CHAR WILL BE SENT 
(2) thE 000000 SAVPC: 0 PROGRAM COUNTER STORAGE 

(2) 001130 000000 HLDO 0 

(2) 001132 000000 HLD1 0 

(2) 001134 000000 HLD2 0 

(2) 001136 000000 HLD3 0 

(2) 001140 000000 HLD4 0 

(2) 001142 000000 HLDS5: 0 

si 001144 000000 HLD6: 0 
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CNDUTA.M11 =0CT- BASIC DEFINITIONS SEQ 0018 
(2) PROGRAM, CONVERSATIONAL PARAMETERS 
(2) 001146 77 SYNCNO: .BYTE :#OF SYNC CHARS REQ'D FOR SYNC'ZATION 
(2) 001147 77 SEXMIT: .BYTE 377  3SEC XMIT JUMPER "IN' 
(2) 001150 77 SEREC: .BYTE 377 SEC REC JUMPER IN’ 
(2) 001151 77 OPTCLR: .BYTE 377 | ;OPTIONAL JUMPER CLR ‘IN’ 
(2) Q0115¢ 000 MULTD: .BYTE NO MULTIPLE DEVICE FLAG rod 
(2) 00115 377 JMRBY: BYTE 377 EXTERNAL MODEM BYPASS JUMPER "‘iN 
(2) -EVEN 
(2) ;PROGRAM MULTIPLE DEVICE PARAMETERS 
(2) 001154 000000 BASEADD: 0 ;PROG CONTROLLED 1ST DEVICE ADDR 
(2) 901156 900000 KEEPADD: : SAVED 1ST DEVICE ADDR 
(2) 001160 000900 LASTADD ZLAST DEVICE RXCSR ADDR 
(2) 001162 000000 BASEIV 0 PROG CONTROLLED IV 
(2) 001164 000000 KEEPIV: 0 SAVED _INTR VECTOR 
(2) 001166 000000 ACTREG: 0 ACTIVE REGISTER ,,,MODIFY THIS 
(2) [LOCATION TO DISQUALIFY OR QUALIFY 
(2) SDEVICES (1> RUN.» .0= DON?T RUN) 
(2) 001170 000000 ROTADD: 0 TROTATING POINTER FOR ACTREG..POINTS 
@) 10 DEVICE PRESENTLY UNDER TEST WHEN RUNNING MULTIPLE DEVICES 
@) ;PROGRAM CONTROL FLAGS 
(2) 001172 000 INIFLG: .BYTE 0 {PROGRAM INITIALIZATION FLAG 
(2) 001173 ~—-000 STFLG: BYTE 0 TEST START FLA 
(2) 001174 000 LORFLG: BYTE 0 ‘(Gtk ON CURRENT TEST FLAG 
(2) 001176 
(1) 001400 “£1400 
(2) 
(2) 
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BASIC DEFINITIONS 


INSTRUCTION DEFINITIONS 


PUSH1SP= 55746 SDECREMENT PROCESSOR STACK 1 WORD 
POP1SP=5 : INCREMENT PROCESSOR STACK 1 WORD 
Pusu: 1 0056 >SAVE RO ON STACK =MOV RO,-(SP) 
POPRO=12600 SRESTORE RO FROM STACK =MOV (SP)+ 
PusHesPs 34 46  :DECREMENT STACK TWICE =CMP =(SP) 
POP2SP=22626 “INCREMENT STACK TWICE =CMP (SP)+ 
SREGISTER DEFINITIONS 

“RXCSR BIT DEFINITIONS 
psc=B1715 SDATA SET CHANGE 
RING=BIT14 “RING 
CTS=B1T13 ?CLR TO SEND 
CARDET=B1112 SCARRIER DETECT 
RECACT=BIT11 TREC ACTIVE 
SRD=B1T10 :SEC REC DATA 
DSR=BIT9 SDATA SET RDY 
STPSYN=B118 ‘STRIP SYNC 
RXDONE=BIT :REC DONE 
RINTEN=B1T6 “REC INTR ENABLE 
DSINTE=BITS [DSC _INTR ENABLE 
SYNSCH=BI 14 :SYNC SEARCH 
STD=BIT3 [SEC XMIT DATA 
RTS=BIT2 :REQ TO SEND 
DTR=B1T1 [DATA TERM RDY 
VOID=BITO 

-RXDBUF BIT DEFINITIONS 
RXERR=BIT15 ;REC ERROR 
OVRRUN=BIT14 ‘OVERRUN 
FRMERR=B1113 SFRAME ERROR 
PARER=BIT12 :PARITY ERROR 

-PARCSR BIT DEFINITIONS 
PAREN=B119 sPARITY ENABLE 
EVPAR=B1 18 SEVEN PARITY SENSE 

*PARCSR WRD DEFINITIONS 
SYNINT=30000 ;SYNC EXTERNAL MODE 
SYNEXT=20000 :SYNC INTERNAL MODE 
1SYMOD=0 :1SOC MODE 
FIVE=0 [WORD LENGTH 5 BITS 
$1xX=2000 . [WORD LENGTH 6 BITS 
SEVEN=4000 i WORD LENGTH 7 BITS 
EI1GHT=6000 [WORD LENGTH 8 BITS 
NOPAR=0 [NO PARITY 
ODDPAR=1000 3000 PARITY 
EVEPAR=1400 EVEN PARITY 

-TXCSR BIT DEFINITIONS 
DNA=B1T15 sDATA “Not AVAILABLE 
MIDATASBIT14 SMAINT DAT 
CLK=BIT1 CLK 
BITw=B1T10 [BIT WINDOW 
MRE SET=B118 “MASTER RESET 
TXDONE=BIT [XMIT DONE 
TXINTE=BIT6 [XMIT INTR ENABLE 


SP) 


SEQ 0019 
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CNDUTA.M11 30-OCT-82 11:16 BASIC DEFINITIONS SEQ 0020 
(2) 000040 DNAINTE=BITS ;DNA INTR ENAB 
(2) 000020 SEND=BIT4 N 
(2) 000010 HDXEN=B113 i HDX/FDX 
(2) 000001 BREAK=BIT0 
(2) sTXCSR WRD DEFINITIONS 
(2) 000000 USER=0 sUSER MODE 
(2) 004000 MINT=4000 ‘MAINT INT MODE 
(2) 010000 MEXT=10000 ‘MAINT EXT MODE 
(2) 014000 SYSTST=14000 ‘SYSTEM TEST MODE 
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) 
“OCT-82 11:16 COMMON TAGS SEQ 0021 


3} .SBTTL COMMON TAGS 

( ) sp erteekenrareeeeerererererrererenterereReKeeKeneneeateneeeererese 
(2) Z*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 

(2) :*USED IN THE PROGRAM. 

(5) 001400 eB 

(2) 001400 SCMTAG: START OF COMMON TAGS 

(2) 001400 000000 -WORD 0 

(2) 00140 000 STSTNM: .BYTE 0 ;;CONTAINS THE TEST NUMBER 

(2) 00140 000 SERFLG: .BYTE 0 CONTAINS ERROR FLAG 

(2) 001404 990000 SICNT: .WORD 0 ::CONTAINS SUBTEST ITERATION COUNT 
(2) 001406 000900 SLPADR: .WORD 0 ::CONTAINS SCOPE LOOP ADDRESS 

(2) 001410 000000 SLPERR: .W 0 ;:CONTAINS SCOPE RETURN FOR ERRORS 
(2) 001412 000000 SERTTL: . 0 ;:CONTAINS TOTAL ERRORS DETECTED 
(2) 001414 000 SITEMB: .BYTE 0 SECONTAINS ITEM CONTRO. BYTE 

(2) 001415 01 SERMAX: .BYTE 1 CONTAINS MAX. ERRORS PER TEST 
(2) 001416 900000 SERRPC: .WORD 0 CONTAINS PC OF LAST ERKoR I[WSTRUCTION 
(2) 001420 000000 SGDADR: .W 0 ;:CONTAINS ADDRESS OF ‘GOOD’ DATA 
(2) 001422 000000 SBDADR: . 0 CONTAINS ADDRESS OF “BAD' DATA 
(2) 001424 000000 SGDDAT: .WORD 0 CONTAINS ‘GOOD’ DATA 

(2) 001426 000000 SBDDAT: .WORD 0 CONTAINS "BAD' DATA 

(2) 001430 000000 “WORD 0 ;;RESERVED--NOT TO BE USED 

(2) 001432 000000 WORD 0 

(2) 001434 000 $AUTOB: .BYTE 0 ;;AUTOMATIC MODE INDICATOR 

(2) 001435 000 SINTAG: .BYTE 0 INTERRUPT MODE INDICATOR 

(2) 001436 000000 “WORD 0 

(2) 001440 177570 SWR:  .WORD DSWR ;:ADDRESS OF SWITCH REGISTER 

(2) 001442 177570 DISPLAY: .WORD DDISP ADDRESS OF DISPLAY REGISTER 

(2) 001444 177560 $TKS: 177560 ::TTY KBD STATUS 

(2) 001446 177562 $TKB: 177562 TTY KBD BUFFER 

(2) 001450 177564 $TPS: 177564 T:TTY PRINTER STATUS REG. ADDRESS 
(2) 001452 177566 $TPB: 177566 ::TTY PRINTER BUFFER REG. ADDRESS 
(2) 001454 000 $NULL: .BYTE 0 CONTAINS NULL CHARACTER FOR FILLS 
(2) 001455 002 SFILLS: .BYTE 2 

(2) ;; CONTAINS # OF FILLER CHARACTERS REQUIRED Re 
(2) 001456 012 SFILLC: .BYTE 12 ;:INSERT FILL CHARS. AFTER A “LINE FEED 
(2) 001457 000 STPFLG: .BYTE 0 :;"TERMINAL AVAILABLE’ FLAG (B11<07>=0=VES) 
(2) 001460 000000 SREGAD: .WORD 0 ;:CONTAINS THE ADDRESS FROM 

(2) ;:WHICH (S$REGO) WAS OBTAINED 

(4) 001462 000000 $REGO: .WORD 0 CONTAINS (($REGAD) +0) 

(4) 001464 000000 $REG1: WORD 0 CONTAINS (($REGAD) +2) 

(4) 001466 000000 $REG2: WORD 0 Z:CONTAINS (($REGAD) +4) 

(4) 901470 900000 $REGS: .WORD 0 ;:CONTAINS (($REGAD) +6) 

(4) 001472 000000 $REGG: .W 0 CONTAINS (($REGAD) +10) 

(4) 001474 000000 $REGS: 0 CONTAINS (($REGAD) +12) 

(4) 001476 000000 $TMPO: WORD 0 Z3USER DEFINED 

(4) 001500 000000 $TMP1: .WORD 0 Z:USER DEFINED 

(4) 001502 000000 $TMP2: .WORD 0 USER DEFINED 

(4) 001504 000000 STMP3: WORD 9 :USER DEFINED 

(4) 001506 000000 STMP4: WORD :USER DEFINED 

(4) 001510 000000 STMP5: .WORD 0 3:USER DEFINED 

(2) 001512 000000 STIMES: 0 Z:MAX. NUMBER OF ITERATIONS 

(2) 001514 00000 SESCAPE :0 ZESCAPE ON ERROR ADDRESS 

(2) 001516 177607 000377 SBELL: .ASCIZ <207><377><377> 33CODE FOR BELL 

(2) 001522 = 077 SQUES: ASCII /2/ ;QUESTION MARK 
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(2) 001523 015 SCRLF: . ASCII <15> s; CARRIAGE RETURN 
(2) MEE 000012 SLF: SASCIZ $433 *sLINE FEED 
( ) 5 SRAERERAERAAAAAAREAEKAEAAAAETAAEAHARAEARAARAAAARRARAARERARAAREAAAARAAAe 
*SBTTL APT MAILBOX-ETABLE 
(4) De cre WT Ser nce Con aca She acces c Aa 
(3) “EVEN 
(3) 001526 $MAIL: :;APT MAILBOX 
(3) 0013¢6 090000 SMSGTY: .WORD AMSGTY i :MESSAGE TYPE CODE 
(3) 001530 000000 SFATAL: .WORD AFATAL FATAL L ERROR N NUMBER 
(3) 001532 000000 STESTN: .WORD ATESTN ;;TEST NUMBER 
(3) 001534 000000 ; APA *sPASS COU 
(3) 001536 000900 SDEVCT: . ADEVCT ;;DEVICE C 
(3) 001540 000000 : WORD AUN 3170 UNIT . ER 
(2) yu1542 000000 SMSGAD: .WORD AMSGAD ::MESSAGE A ss 
(3) 001544 000000 SMSGLG: .WORD AMSGLG MESSAGE L LENGTH 
(3) 001546 SETABLE: T ENVIRONMENT TABLE 
(3) 001546 000 SENV: .BYTE AENV + ENVIRONMENT BYTE 
(3) 001547 000 SENVM: .BYTE  AENVM 
(3) ENVIRONMENT MODE BITS 
(3) 001550 000000 $SWREG: .WORD ASWREG ;;APT SWITCH REGISTER 
(3) 001552 000000 S$USWR: .WORD AUSWR ;::USER SWITCHES 
(3) 001554 000000 S$CPUOP: .WORD ACPUOP ;;:CPU 1YPE .OPT IONS 
(3) 3 BITS 15-11=CPU TYPE 
(3) 3* 11/94=01 11/055 02,11/20=03, 11/40=04,11/45=05 
(3) 8 11/70=06,PD 9-07, 0=10 
(3) 3* BIT 10=REAL TIME CLO 
(3) * BIT 9=FLOATING POINT “PROCESSOR 
(3) 7 BIT 8=MEMORY MANAGEMENT 
(3) 001556 000 $MAMS1: .BYTE AMAMS1 ;;HIGH ADDRESS,M.S. BYTE 
(3) 001557 000 SMTYP1: .BYTE AMTYP1 ::MEM, TYPE, BLKA1 
(3) 3* MEM. TYPE BYTE  -- (HIGH BYTE) 
(3) ie 900 NSEC CORE=001 
(3) 3* 300 NSEC BIPOLAR=002 
(3) 500 NSEC MOS=003 
(3) 001560 000000 $MADR1: .WORD AMADR1 ;;HIGH ADDRESS BLK#1 ae 
(3) * MEM. LAST ADDR.=3 BYTES, THIS WORD AND LOW OF ‘TYPE’ ABOVE 
(3) 1 000 $2: .BYTE AMAMS2 ;;:HIGH AD ness M.S. BYT 
(3) 00156 000 SMTYP2: .BYTE AMTYP2 ::MEM. TYPE, BLK 
(3) 001564 000000 SMADR2: .WORD AMADR i iMEM. LAST ADDRESS .BLK K#2 
(3) 001566 000 $MAMS3: .BYTE AMAMSS ;;HIGH ADDRESS,M.S.BYTE 
(3) 001567 000 S$MTYP3: .BYTE AMTYP i iMEM. TYPE ,BLKA3 
(3) 091570 000000 SMADR3: .WORD AMADR3 ::MEM.LAST ADDRESS. BLKa3 
(3) 00157¢ 000 SMAMS4: .BYTE AMAMSG ;;HIGH ADDRESS,M.S.BYTE 
(3) 00157 000 SMTYP4: .BYTE AMTYPG ::MEM.TYPE,BLKAG. 
(3) 001574 000000 SMADR4: .WORD AMADR4 i 3MEM: LAST ADDRESS, BLK#4 
(3) 001576 000000 SVECT1: .WORD AVECT1 :: INTERRUPT VECTOR#1 BUS PRIORITY yal 
(3) 001600 000000 SVECT2: .WORD AVECT2 :: INTERRUPT VECTOR#2BUS PRIORITY#2 
(3) 001602 000000 $BASE: .WORD ABASE 
(3) BASE ADDRESS OF EQUIPMENT UNDER TEST 
(3) 001604 000000 SDEVM: WORD ADEVM =; ;DEVICE MAP 
(3) 001606 000000 $CDOW1: .WORD ACDW!1 : CONTROLLER DESCRIPTION wORD#1 
(3) 001610 000000 $CDW2: .WORD ACDW *T CONTROLLER DESCRIPTION WORD#2 
(3) 001612 000000 $DDWO: .WORD ADDWO ;;DEVICE DESCRIPTOR WORDAO 
(3) 001614 000000 $DDW1: .WORD ADDW1 ;;DEVICE DESCRIPTOR WORD#) 
(3) 001616 000000 $DDW2: .WORD ADDW2 ;;DEVICE DESCRIPTOR WORD#2 


SEQ 0023 
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: INSTRUCTION DEFINITIONS 


SEQ 0024 


PUSH1SP=5746 = ;DECREMENT PROCESSOR STACK 1 WORD =TST -(SP) 
POP1SP=5726 S INCREMENT PROCESSOR STACK 1 WORD =TST <SP)+ 
PUSHRO=10046  :SAVE RO ON STACK =MOV RO,-(SP) 
OPRO=12600 SRESTORE RO FROM STACK =MOV (SP)+, RO 

PUSH2SP=24646 © ;DECREMENT STACK TWICE =CMP =(SP) ,(SP) 
OP2SP=22626 =: INCREMENT STACK TWICE =CMP (SP)+,(SP)+ 
sREGISTER DEFINITIONS 

“RXCSR BIT DEFINITIONS 
psc=B1T15 SDATA SET CHANGE 
RING=BIT14 RING 
CTS=B1T13 'CLR TO SEND 
CARDET=B1T12 [CARRIER DETECT 
RECACT=BIT11 TREC ACTIVE 
SRD=B1T10 [SEC REC DATA 
DSR=BIT9 [DATA SET RDY 
STPSYN=BITS 'STRIP SYNC 
RXDONE=B1T7 SREC DONE 
RINTEN=B1 16 ‘REC INTR ENABLE 
DSINTE=BITS [DSC INTR ENABLE 
SYNSCH=BIT4 [SYNC SEARCH 
STD=BIT [SEC XMIT DATA 
RTS=BIT2 :REQ TO SEND 
DTR=BIT1 [DATA TERM RDY 
VOID=BITO 

:RXDBUF BIT DEFINITIONS 
RXERR=B1T15 ;REC ERROR 
OVRRUN=BIT14 VERRUN 
FRMERR=BIT13 i FRAME ERR OR 
PARER=B1112 ARITY ERROR 

:PARCSR BIT DEFINITIONS 
PAREN=B1T9 NABLE 
EVPAR=BI 18 SEVEN PARITY SENSE 

-PARCSR WRD DEFINITION S 
SYNINT=30000 NC EXTERNAL MODE 
SYNEXT=20000 SYN INTERNAL MODE 
1SYMOD= ; MODE 
FIVEsO [WORD LENGTH 5 BITS 
$1xX=2000 SWORD LENGTH 6 BITS 
SEVEN=4000 [WORD LENGTH 7 BITS 
E 1GHT=600 :WORD LENGTH 8 BITS 
NOPAR= 3NO PARITY 
ODDPAR=1000 :000 PARITY 
EVEPAR=1400 VEN PARITY 

-TXCSR BIT a S 
DNA=B1T15 sDATA NOT AVAILABLE 
MTDA A-BIT14 [MAINT DATA 
CLK=BIT :CLK 
BI TW=B1T10 [BIT WINDOW 
MRESET=B118 [MASTER RESET 
TXDONE=B1T ?XMIT DONE 
TXINTE=B1T6 ?XMIT INTR ENABLE 
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(4) 000040 DNAINTE=BITS ;DNA_INTR ENAB 
(4) 000020 SEND=BIT4 : SEND 

(4) 000010 HDXEN=BIT3 > HDX/FDX 

(4) 000001 BREAK=BITO REAK 

(4) sTXCSR WRD DEFINITIONS 

(4) 000000 USER=0 SUSER MODE 

(4) 004000 MINT=4000 ‘MAINT INT MODE 
(4) 010000 MEXT=10000 [MAINT EXT MODE 
(4) 014000 SYSTST=14000 :SYSTEM TEST MODE 
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ERROR POINTER TABLE 
-S8TTL ERROR POINTER TABLE 
3*THIS go ation ie” THE INFORMATION FOR EACH ERROR ER FOUND IN OCCUR. 


S*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
i sLOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
S*NOTE) IF $ITEMB IS 0 THE ONLY PERTINENT (SERRPC). 
S*NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS 

* EM ::POINTS TO THE ERROR MESSAGE 

3* DH ::POINTS TO THE DATA HEADER 

3* DT ‘POINTS TO THE 

3* OF ‘POINTS TO THE DATA FORMAT 

SERRTB 

ERROR TABLE 
EW sERROR 1 REGISTER ERROR 
DT1 
DF1 
EMG sERROR 2 RECEIVER ERROR 
DTI 
OF 
EMS sERROR 3 TRANSMITTER ERROR 
DTI 
DF 
EMA SERROR 4 BIT ERROR (GENERAL) 
NT4 
DFI 

“DEFAULT DU ADDRESSES 

RXCSR: 174300 

HRXCSR: 174301 

RXDBUF: 174302 

HRXDBUF : 174303 

RCSR: 174302 

HPARCSR: 174303 
XCSR: 174304 

HTXCSR: 174305 

TXDBUF: 174306 

HTXDBUF : 30 

“DEFAULT DU VECTORS 

DURIV: 330 sREC INTR VECTOR 

DURIS 332 GREC_INTR STATUS 

DUTIV: 334 [XMIT INTR VECTOR 

DUTIS: 336 *XMIT INTR STATUS 

SERROR MESSAGES 
EMG: "ASCIZ / ERROR PC / 
EM1: .ASCI2 / COMPARISON ERROR ON REGISTERS/ 


SEQ 0026 
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02012 044507 052123 051105 
a9 8 8 a 425 42503 EM2 ASCIZ / RECEIVER ERROR/ 
0020 8 111 if 42460 : , 
8 878 Oot es abt 4 9 § —EM3 ASCIZ / TRANSMITTER ERROR/ 
8 050 05153 22858 ed 4 s ‘ 
002056 051105 042440 051122 
yonewn. vers vin ;DATA HEADERS FOR ERROR MESSAGES 
00 067 105 051132 041520 DH1: “ASCIZ /ERRPC WANTED ACTUAL/ 
002074 020040 0405 052116 
00 108 042105 020040 041501 
00211 052524 046101 000 

002116 EVEN 
SDATA TABLES FOR ERROR MESSAGES 

002116 001416 001130 001132 oDT1: "WORD  $ERRPC,HLDO,HLD1,0 
002124 000000 
002126 001416 000000 DT4: .WORD  $ERRPC,O 
002132 000 000 000 oF1: .BYTE 0,0,0,0 
002135 000 


-EVEN 
~SBTTL ACT11 HOOKS 


FRARARAHAAAAAAAAAAAERAATE HEA AAH EAHA AAAEAAHARHAREHEAHH EARTH EASE 


: HOOKS gt bag BY ACT11 


RR RF FRR RRA RA FAA AEA EAE EO Pm me Pm Oe OO Om lm my Oe OO lm OO OO 
ee ee ee ee ee a ee ee a ee ee ees ee SY YS YS YY wa 
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002136 SVPC=, sSAVE PC 
000046 012670 SENDAD ::1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
000052 000000 “WORD 0 ::2)Se! LOC. 332 TO ZERO 
002136 =$SVPC RESTORE P 
.SBTTL APT PARAMETER BLOCK 
seeeereereeereererererrrrerreeeteneneReneneReneeeneneeeneeneeeee 
iSet LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
peteeeeeererenerereereeeerrrttreeKieneneneneeenaeeneneneereneenes 
002136 .$X=.  :;SAVE CURRENT LOCATION 
000024 226 :iSEI POWER FAIL TO POINT TO START OF PROGRAM 
000024 000200 200 SFOR APT START UP 
000044 246 i POINT TO apt INDIRECT ADDRESS PNTR. 
» 900044 0021 56 SAPTHDR ::POINT TO APT HEADER BLOCK 
) 02136 .=.$X ‘Reser TOcaT iON COUNT ER 
) 3 SRHERRHAHAARHAHHHHEREHHHHAEATEHHAEAAAAAAHATERERHAKRERReAAAAAAeKRAeenese 
) tSETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
S INTERFACE SPEC. 
» 00 136 SAPTHD: 
» 0021 6 900090 $HIBTS: .WORD 3 :;TwO HIGH BITS OF 18 BIT MAI ILBOX AD ADDR. 
» 002140 001526 SMBADR: WORD $MAIL ::ADDRESS OF APT MAILBOX (BITS 
» 002142 000010 $TSTM: .WORD 1 ::RUN TIM OF LONGEST TEST 
» 002146 000010 SPASTIM: .WORD 1 [IRUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
(2) 002146 00000 SUNITM: .wORD : {TIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
(2) 150 000052 "WORD SETEND-S$MAIL/2 :;LENGTH MAILBOX-E TABLE (WORDS) 
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(1) 
(2) 
‘$} PROGRAM INITIALIZATION 
(2) ‘LOCK OUT INTERRUPTS 
(2) 'SET UP PROCESSOR STACK 
(2) [SET UP POWER FAIL VECTOR 
(2) :CLEAR PROGRAM CONTROL FLAGS AND COUNTS 
¢ [TYPE TITLE MESSAGE 
(2) 002152 .START: 
(3) -SBITL INITIALIZE THE COMMON TAGS 
(2 z:CLEAR THE COMMON TAGS CSCATAG) AREA 
(3) 002152 012706 001400 MOV #SCMTAG,R s;FIRST LOCATION TO BE CLEARED 
(3) 002156 005026 CLR (R6)+ *:CLEAR MEMORY LOCATION 
(3) 002160 022706 001440 CMP #SWR,R6 ;;DONE? 
(3) 002164 001374 BNE .-6 :;LOOP BACK IF NO 
(3) 002166 012706 001100 MOV #ASTACK,SP s;SETUP THE STACK POINTER 
(3) ss INITIALIZE A FEW VECTORS 
(3) 002172 012737 016314 000020 MOV #SSCOPE ,aMIOTVEC ;;10T VECTOR FOR SCOPE ROUTINE 
(3) 002200 012737 000300 0000¢2 MOV #PR6,AMIOTVEC+2 s:LEVEL 6 
(3) 002206 012737 014204 000030 MOV #SERROR AMEMTVEC :;EMT VECTOR FOR ERROR ROUTINE 
(3) 002214 012737 000300 000032 ateen MOV #PRO,AMEMTVEC+2 S:LEVEL 6 
(3) 002222 012737 016650 000034 MOV #STRAP,@#TRAPVEC ;;TRAP VECTOR FOR TRAP CALLS 
(3) 002230 012737 000300 000036 MOV #PR6,AMTRAPVEC+O;LEVEL 6 
(3) 002236 01 132 015006 000024 MOV #SPWRON ,a#PWRVEC ;;POWER FAILURE VECTOR 
(3) 002244 012737 000300 000026 MOV #PRO,AMPURVEC +2 sLEVEL 6 
(3) 002252 005067 177234 CLR STIMES S: INITIALIZE NUMBER OF ITERATIONS 
(3) 002256 005067 177232 CLR SESCAPE S:CLEAR THE ESCAPE ON ERROR ADDRESS 
(3) 002262 112767 000001 177125 MOVB #1,$ERMAX ::ALLOW ONE ERROR PER TES 
(3) 002270 012767 002270 177110 MOV #.,$LPADR t: INITIALIZE THE LOOP ADDRESS FOR SCOPE 
(3) 002276 012767 002276 177104 MOV #.,SLPERR **SETUP THE ERROR LOOP ADDRESS 
(4) 33S1ZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
(4) ::EQUAL TO A ‘'=1'', SETUP FOR A SOFTWARE SWITCH REGISTER. 
(4) 0023046 013746 000004 MOV @MERRVEC.-(SP) ;;SAVE ERROR VECTOR 
(4) 002310 012787 002344 000004 MOV #64$,aMERRVEC ::SET UP ERROR VECTOR 
(4) 002316 012767 177570 177114 MOV #OSWR,SWR t:SETUP FOR A HARDWARE SWICH REGISTER 
(4) 0028 4 012767 177570 177110 MOV #DDISP,DISPLAY ::AND A HARDWARE DISPLAY REGISTER 
(4) 002332 022777 177777 177100 CMP #-1,aSWR t:TRY TO REFERENCE HARDWARE SWR 
(4) 002340 001012 BNE S:BRANCH IF NO TIMEOUT TRAP OCCURRED 
(4) S:AND THE HARDWARE SWR IS NOT = 1 
(4) 002342 000403 BR 65$ ::BRANCH IF NO TIMEOUT 
(4) 002344 012716 002352 64$: MOV #65$, (SP) [:SET UP FOR TRAP RETURN 
(4) 902390 0 90¢ RTI 
(4) 002352 012767 000176 177060 65$: MOV #SWREG, SWR ::POINT TO SOFTWARE SWR 
(4) 002360 01 767 000174 177054 MOV #DISPREG, DISPLAY 
(4) 002366 012637 000004 66$: MOV (SP)+,a#ERRVEC ;;RESTORE ERROR VECTOR 
(4) 002372 995067 177136 CLR SPASS ::CLEAR PASS COUNT 
(4) 902376 132767 000200 177143 BITB #APTSIZE,SENVM ;;TEST USER SIZE UNDER APT 
(4) 002404 001403 BEQ 7 >:YES,USE NON-APT SWITCH 
(4) 002406 012767 001550 177024 ee MOV @SSUREG, SUR t:NO,USE APT SWITCH REGISTER 
(2) 002614 912706 901100 MOV #STACK SP :SET STACK 
(2) 002420 Nogue 00300 MIPS #300 ‘LOCK INTERRUPTS 
(2) 002624 012737 015006 000024 MOV #.PFAIL, #24 *SET UP POWER FAIL VECTOR 
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F sCLEAR START FLAG 
Sh He ees Tee He HN TH Pua i 
(3) Bosues ansoer 7erc6 ctr Eni CLEAR ERROR, COUNT, 
i) Beet Ges SRS THAT BHEAMerams FET AE SE BE sa ern 
002464 012767 002152 17641 MOV #. START, :SET_UP FOR POw 
13746 000006 MOV a#6,-(SP) 
{ } 8 t3e + 746 Mint MOV aes. =(SP) 
(2) 002502 01 a3 002316 000004 MOV #5086 
3} 990819 osrs7 76724 iy 3s 
76714 1$: MOV #SWREG, SW 
{ } $0 236 + 6? ooo Tze 15e516 mov #DISPREG, DISPLAY 
3) BRE BESET anon, x: 
(2) 002540 012637 000006 MOV (SP)¢ 086 
(2) 002544 022767 000176 176666 CMP a SURE ,SWR 
tg} ooSeee eee 000042 TST 542 sCHECK FOR CHAIN 
(2) 002560 901402 BEQ 3$ 
(2) 002562 000167 000522 “-. ANP sBEGIN 
(3) Mitte: tittees oer 33: TSTB ss NTFLG SHAS INITIALIZATION BEEN PERFORMED 
(2) 002576 001004 BNE ONCE aa 
TYPE MTITLE sTYPE TITLE MESS 
@) ieatit4 lester Prat COMB ~—ssNIFLG i F NOT SET FLAG AND DO 
(2) 902610 105767 176785 ONCE : ste SENV ;ApT CONTROL? 
) bo5e16 sees 000001 176726 BIT #1, SUSWR SEXTENAL JUMPER ON? 
(2) 002624 00100 BNE NO 
($} 003696 thts 176321 see CLRB SARBY iCLEAR FLAG 
(5) Misses sttags Hint 176574 11$:  ~=BIT #SW00,aSwWR TRESELECT VECTOR & CONTROL REG? 
(3) O85ece o90167 000636 one iBEcin 
: #300,RO0 ;RESTORE VECTOR AREA TO TRAPCATCHER 
tS) oes ee O1s701 0030s 18: MOY B8007R1 START AT LOCATION: 300 
(2) 002662 012702 000004 MOV #4 RO 
3) 002666 910110 2$: MOV RI (ROD 
3) Sere Been G3 lh 
(3) 003676 092901 001000 CAP #4600.R1 ZEND AT LOCATION 776 
( ; 009704 90406 TnstR ; OUTPUT MESSAGE & GET INPUT STRING 
MRE 3 
TIM State LeaT PARAM. ZCONVERT. STRING 
Bare THe ee 
( ) $0 6 aetce DUBASE : STORE AT THIS LOCATION 
(3) $037 : 001 BYTE 1 *HOW MANY TIMES ¢ 2 
(1) 80 722 016767 014216 176226 MOV bUBASE .KEEPADD SAVE 
(1) $037 004767 014056 JSR PC ,DUADDR 
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CNDUTA.M11 -30-0CT 
(1) 002734 016767 176216 176212 MOV KEEPADD, BASEADD ;RESTORE FOR ROTATION 
(2) 002742 104406 INSTR T MESSAGE & GET INPUT STRING 
(2) 002746 015201 MVECTO 4S ke 
(2) 002746 104410 PARAM > CONVERT STRING 
(2) 00 730 000300 300 3LOW LIMIT 
(2) 002752 000776 6 HIGH LIMIT 
(2) 002756 001736 DURIV STORE: AT THIS LOCATION 
(3) 002756 001 .BYTE 1 MASK 
(2) 002757 004 “BYTE 4 “HOW MANY TIMES ¢ 
(1) 002760 016767 176752 176176 MOV buRiv, KEEPIV : SAVE 
(1) 002766 016767 176744 176166 MOV URIV.BASELV T UP FOR ROTATION 
(2) 002774 104406 INSTR — ;QUTPUT MESSAGE i> EET INPUT STRING 
(2) 002776 015244 MMULT  :MESSAG 
(2) 003000 104414 SETFLG iSET FL Y BASED UPON INPUT STRING 
(2) 003002 001152 MULTD HIS FL 
1) 003006 105767 176142 TSTB hut te ZARE, THERE MULTIPLE DEVICES 
(1) 003010 100406 BM! BBB SYES,ASK NEXT QUESTION 
(1) 003012 005067 176150 CLR ACTREG 
(1) 003016 005067 176146 CLR ROTADD 
(1) 003022 000167 000140 JMP OUTMUL ;JUMP AROUND NEXT QUESTION 
(1) 003026 BBB: 
(2) 003026 104406 INSTR /QUTPUT MESSAGE & GET INPUT STRING 
(2) 003030 01527 MLASTD 
(2) 003032 104410 PARAM CONVERT g Taine 
(2) 003034 174000 174000 LOW LIMIT 
(2) 003036 177776 177776 :HIGH LIMIT 
(2) 003040 001160 LASTADD STORE AT THIS LOCATION 
(2) 00304 001 -BYTE 
(2) 00304 001 YTE MANY TIMES + 2 
(1) One FOLLOWING ajnoet SETS UP ACTREG FOR THE FIRST TIME 
(1) 003044 012767 000001 176116 i$: MOV #1,ROTAD SET UP POINTER 
(1) 003052 065067 176110 CLR ACTREG :CLR ACTIVE REGISTER 
(1) 003056 056767 176106 176102 2%: BIS ROTADD,ACTREG | ;MAKE THIS DEVICE ACTIVE 
(1) 003064 000241 CLC 
(1) 003066 006167 176076 ROL ROTADD ;SET UP POINTER 
(1) 003072 103421 acs 3s SARE YOU out OF RANGE ? 
(1) 003074 062767 000010 176052 ADD SEADD :SET UP BASE ADDRESS 
(1) 003102 026767 176052 176044 CMP viet tobe BASEADD :1S THIS THE LAST DEVICE ? 
(1) 003110 10136 BHI -NO DO I AGAIN 
(1) 003112 056767 176052 176046 BIS ROTADD, ACTREG >THIS ASSUMES THAT THERE ARE AT 
(1) sLEAST TWO DEVICES WHEN YOU ANSWER YES TO 
(1) MULTIPLE DEVICE QUESTION 
(1) 003120 012767 000001 176042 4$: MOV #1, ROTA :SET UP FOR LATER USE IN END OF PASS ROUTINE 
(1) 003126 016767 176024 176020 MOV KEEPADD. BASE ADD *DITTO 
(1) 003134 000414 BR out INuE QUESTIONS 
(1) 003136 016767 176014 176010 33: MOV KEEPADD, BASEADD RESTORE 
(2) 003144 104406 NSTR  ;QUTPUT MESSAGE & GET INPUT STRING 
(2) 003146 015367 MRANGE :MESSA 
(2) 003150 104410 PARAM s CONVERT STRING 
(2) 003152 174000 174000 3LOW LIMIT 
(2) 003154 177776 177776 :HIGH LIMIT 
(2) 003156 001160 LASTADD 35 STORES AT THIS LOCATION 
(2) 003160 001 BYTE MASK 
(2) 003161 001 "BYTE 1 “HOW MANY TIMES + 2 
(1) 003162 000167 177656 JMP i$ :D0 IT AGAIN 
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CNDUTA.M11 -0CT- 16 INITIALIZE THE COMMON TAGS SEQ 0031 
(1) 003166 012767 000300 013612 OUTMUL: MOV #300,DUPRT 
(1) 003174 004767 300399 SR PC, DULEV 
(2) SCOMPARE THE FIRST CHARACTER IN THE TELETYPE INPUT 
(2) “BUFFER TO THE CHARACTERS ‘1'’ AND ‘'2"'. 
(2) sIF THE CHARACTER ""4"' CLEAR THE FLA 
(2) SIF THE CHARACTER IS “'2"' SET THE FLAG 
(2) 903200 AAA: 
(2) 003200 104406 INSTR ;OUTPUT MESSAGE & GET INPUT STRING 
(3) 003202 015605 MSYNC :MESSAGE 
(2) 003206 122767 000061 012734 38: CMPB. so #1, INBUF a5 37 "9 
(2) 003212 001003 BNE 1 
(3) O03214 105067 175726 CLRB  SYNCNO ;000 
(2) 003220 900412 BR 4 
(2) d052¢e 122767 000062 012716 18: CMPBsé#' 2, INBUF 338 19 “D9 
(2) 0032 0 001004 BNE 
(2) 003232 112767 177777 175706 MOVB  #-1,SYNCNO 3377 
(2) 003240 000402 BR 
(3) 003242 104407 2$: INSTER ;RETRY 
(2) 003244 000757 BR $$ 
(2) 003246 000240 4$: NOP 
(2) 003250 104406 INSTR  ;OUTPUT MESSAGE & GET INPUT STRING 
(2) 003252 015653 MWIRE6 ;: 
(2) 003254 104414 SETFLG :SET FLAG BASED UPON INPUT STRING 
(2) 003256 001147 SEXMIT THIS FLA 
(2) 003260 104406 INSTR sOUTPUT MESSAGE & GET INPUT STRING 
(2) 003262 015724 MWIRES ;MESSAG 
(2) 003264 104414 SETFLG :SET FLAG BASED UPON INPUT STRING 
(2) 003266 001150 SEREC ;THIS FLAG 
(2) 003270 104406 INSTR sOUTPUT MESSAGE & GET INPUT STRING 
(2) 003272 015774 MWIRES ; 
(2) 003274 104414 SETFLG :SET FLAG BASED UPON INPUT STRING 
(2) 003276 001151 OPTCLR :T 
(2) 003300 104406 INSTR sOUTPUT MESSAGE & GET INPUT STRING 
(2) 003302 016053 MEXTS =: A 
(2) 003306 104414 SETFLG :SET FLAG BASED UPON INPUT STRING 
(2) 003306 001153 JMRBY  :THIS FLAG 
os; TEST START AND RESTART 
(2) 003310 012706 001100 .BEGIN: MOV #STACK,SP :SET UP STACK 
(2) 003314 106427 000300 MIPS #300 “LOCK OUT INTERRUPTS 
(2) 003320 032777 000002 176112 Bli #5W01,aSwR :1F SwOl=1, GET STARTING PC 
(2) 003326 001413 BEQ 
(3) 0035 0 104406 INSTR ;QUTPUT MESSAGE & GET INPUT STRING 
(3) 003332 0155 MISTPC ;MESS 
(3) 003334 104410 PARAM :CONVERT STRING 
(? 003336 003374 1st sLOW LIMIT 
(3) 003340 017500 17500 :HIGH LIMIT 
(3) 003342 001402 STSTNM :STORE AT THIS LOCATION 
(3) 003544 001 -BYIE 1 s MASK 
(3) 003345 901 "BYTE 1 "HOW MANY TIMES + 2 
(2) 003346 016767 176030 175530 MOV $TSTNM, RETURN 
(2) 003354 000403 BR 
(2) 003356 012767 003374 175520 3$: MOV #1ST1, RETURN sSTART AT TEST 1 
(2) 003364 104401 015533 4$: TYPE i ‘TY 
(2) 003370 000177 175510 JMP RE TURN SSTART TESTING 
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8150 
8151 ssTHIS TEST CHECKS THE STRIP SYNC FUNCTION 
(1) S:0F THE RECEIVER LOGIC 
(1) 80 E:SYNINT 
(1) ssLENGTH: EIGHT 
(1) 3 SNOTE : RXDONE SHOULD NEVER ASSERT 
ate iC CHAR: 26 (SYN 
(5) PTT TITTTTTITILITILITT TITTLE TTTITTTITTTiTiTTiiTiiiiiiiiiiiiiiii 
(4) 003374 000004 é11: SCOPE 
(3) 003376 052777 000400 176322 BIS WMRESET,@TXCSR ;MASTER RESET 
(2) 003404 012777 030000 17631 MOV #SYNINT.@PARCSR :SET THE MODE 
(3) 003412 052777 000400 176306 BIS #MRESET.@TXCSR :MASTER RESET 
(2) 3SET MAINT DATA,CLK, eee @MAINTENANCE MODE 
(2) 003420 012777 064001 176300 MOV #MTDATA!CLK!MINT BREAK, a@TXCSR 
(2) :SET MODE .# OF BITS. PARITY SENSE,&LOAD SYNC REG 
(2) 003426 012777 036026 176266 MOV #SYNINT EIGHT IN NOPAR: 26, @PARCSR 
(2) 003434 052777 000020 176250 B1 aS YNS H,@RXCSR ;SET SYNC SEARCH 
(2) -POKE CLK TO GET RECEIVER INTO SYNCROIZATION. ... 
(2) 003442 042777 020000 176256 81 #CLK,aTXCSR SPOKE CLK DOWN 
(2) 003450 052777 020000 176250 BIS #CLKaTXCSR uP 
(2) :POKE CLK TO GET Loci INTO SYNCRONIZATION 
(2) 003456 042777 020000 176242 BIC CSR ; K DOWN 
(2) 003464 052777 020000 176234 BIS #CLK aTXCSR [POKE CLK U 
(1) 003472 052777 000400 176212 BIS @CLK A TXCSR iSET STRIP SYNC 
(1) 003500 012767 000003 175416 MOV #3, COUNT # OF SYNC CHARS 
(1) 003506 012767 000026 175764 1$: MOV #26 :$THPI tCHAR TO BE SHIFTED 
(1) 003514 012767 000010 175400 MOV #8. SHIFT :#@ OF SHIFT 
(1) 003522 004767 013420 JSR PC, RPOKE rr IN THIS CHAR 
(1) 003526 105777 176160 TSTB  @RXCSR ;RXDONE 
(1) 003532 100001 BPL + 
(1) 003534 104004 ERROR 4 :RXDONE SHOULD NOT BE ASSERTED 
(1) 003536 005367 175362 DEC COUNT :# OF SYNC CHARS 
(1) 003542 001361 BNE 1$ 
8152 s;THIS TEST PROVES THAT RXERR FREEZES THE “RECEIVER RESET" 
(1) T:WHILE IN STRIP SYNC MODE 
(1) T:THIS TEST FIRST PROVES THAT AUTOMATIC RESETS OCCUR WHEN 
(1) SISTRIP SYNC IS SET & SYNC CHARACTERS ARE SENT 
(1) tie.eeeBUT IF AN ERROR SHOULD OCCUR....THIS AUTOMATIC RESET 
(1) 2:18 DISCOMBOBULATED 
(1) T:]E. FORCE PARITY ERROR WHILE STRIP SYNC IS SET 
(1) SINOTE: NORMALLY THE LOGIC RESETS THE RXDONE ZERROR FLAGS 
(1) S:PROVIDING THAT ONLY GOOD SYNC CHARACTERS ARE SEN 
(1) 7:BUT, IF AN RXERR Sr CURs RXDONE PLUS RXERR ARE ASSERTED 
(1) ::MODE: ISOC (ISYMOD) 
(1) S:LENGTH: EIGHT 
(1) sZPARITY: EVEPAR 
(1) 3s; CHARACTER EXPECTED: gs 
(1) ;CHARACTER SENT: SYNC CHARACTER 
(1) ; SNOTE : THIS TEST USES ONLY THE RECEIVER LOGIC 
ei éé peeeeenececacereeeesereseerereneeaeeeaaaanasenenaeeasereneaseete 


CNDUT<A MACY11 33061946) 14=DEC“82 10:01 PAGE 61-19 
CNDUTA.M11 30-OCT-82 11:16 INITIALIZE THE COMMON TAGS SEQ 0033 
(4) 003544 000004 TST2: SCOPE 
(3) 003546 052777 000400 176152 BIS WMRESET,@TXCSR ;MASTER RESET 
(2) 003554 012777 000000 17614 MOV #ISYMOD.a@PARCSR :SET THE MODE 
003562 052777 000400 176136 BIS @MRESET.aTXCSR MASTER RESET 
(3} sSET MAINT DATA, OA tort GMAINTENANCE MODE 
(2) 303570 012777 064001 176120 MOV MTDATA'CLK MINT ‘BREAK, a@IXCSR 
(2) SET MODE | * OF BITS.PARITY SENSE ,SLOAD SYNC REG 
(2) 003576 012777 007426 176116 #@ISYMOD' EIGHT! EVEBAR! 26, aPARCSR 
(1) 003604 016703 176106 mov RXDBUF ,R 3SET UP FOR ERROR MSG 
(1) 003610 012767 000003 175306 Moy #3-COUNT im “OF VIM ES SYNC CHAR WILL BE SENT 
(2) 003616 052777 000020 176066 BIS #SYNSCH,@RXCS YNC SEAR 
(2) POKE CLK TO GEE RECEIVER FATO SYNCROIZATION.... 
(2) 003624 942777 920000 176074 bic aclKk iO —E CLK DOWN 
(2) 003632 052777 020000 176066 BIS ace KE CLK UP 
(2) :POKE CLK TO GET che aT TNTO synchONt ZATION: 
(2) 003640 042777 020000 176060 BIC #cLK »@TXCSR :POK E C LK DOWN 
(2) 003646 052777 020000 176052 BIS aTxCsR OKE CLK 
(1) 003654 052777 000400 176030 B15 astpeen. ARKCSR ‘eel STRIPC cent 
(1) 003662 012767 000013 175232 2%: MOV #il. SHIFT [8 OF SHIFTS 
(1) 003670 012767 003054 175602 MOV a308L, STMPT SSYNC CHAR * STARTESTOP* PARITY 
(1) 003676 004767 013244 1$: JSR PC,R POK E s SHIFT IN THIS CHARACTER 
(1) 003702 105777 176004 TSTB  @RXCSR ;RXDONE = 0 ? 
(1) 003706 100001 BPL +4 
(1) 003710 104004 ERROR & XDONE SHOULD NOT BE SET 
(1) 003712 005367 175206 DEC COUNT + “OF SYNC CHARS 
(1) 003716 001361 BNE 2$ :GO AGAIN ? 
(1) 003720 012700 000026 MOV #26,R0 Z EXPECTED 
(1) 003724 017701 175766 MOV @RXOBUF ,R1 ACTUA 
(1) ;NOTE THAT THIS IS THE FIRST TIME 
(1) ; RXDBUF Is READ.......THERE SHOULD BE 
(1) NO OVER RUN ERROR 4S 
(1) 003730 020001 CMP RO.R1 :COMPARE EXPECTED VS ACTUAL 
(1) 003732 001401 BEQ +4 
(1) 003734 104002 ERROR 2 ;DATA CHARS SHOULD COMPARE 
(1) : THERE sous BE NO RXERR‘'S 
(1) 003736 012767 000004 175160 MOV #4, COUN # OF 
(1) 003744 012700 110026 MOV aRIERR PARER!26, RO sEXPECTED 
(1) 003750 012767 002054 175522 MOV #2054,$1MP1 :BAD SYNC CHAR (WRONG PARITY) 
(1) 003756 012767 000013 175136 3$: MOV wit, SHIFT :#@ OF SHIFTS 
(1) 003764 004767 013156 JSR PC ,RPOKE [SHIFT IN THIS CHAR 
(1) 903770 105777 175716 1STB a@RKCSR ;RXDONE = 1? 
(1) 003774 100401 BMI +4 
(1) 003776 104004 ERROR 4 XDONE rg BE SET 
(1) 004 017701 175712 MOV @RXDBUF , it L DATA 
(1) 004004 020001 CMP RO R1 s COMPARE. tp = ACT 
(1) 004006 001401 BEQ 
(1) 004010 104000 ERROR DID THE RESPECTIVE ERROR STOP THE 
(1) ; AUTOMATIC RESSETING OF RXDONE e ERROR FLAGS 
( eeeee NC CHA 
(1) 004012 005367 175106 DEC Count’ :# OF ath NC CHARS 
(1) 004016 001445 BEO 3 ifn NISHED ? GET OUT OF TEST 
(1) 004020 022767 000003 175076 CMP COUN -# OF SYNC CHARS 
(1) 004026 001423 BEQ 63 , cones FRAME ERROR 
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CNDUTA.M11 30-OCT-82 11:16 INITIALIZE THE COMMON TAGS SEQ 0034 
004030 022767 000002 175066 CMP #2, COUNT -# OF SYNC CHARS 
UBc086 00442 Bea ade rn ceScteSeaEeaMEeERNOR 040, aniTY 2 
004040 012767 000013 175054 MOV al SHIFT if OF SHIFTS 
004046 012767 $0003 175424 MOV 7 .$iHP1 if art & PARITY ERROR 
004054 004767 013066 JSR OKE : SH Ft IN THIS CHAR 
sNOW DON'T READ rag RKDBUF TO CREATE OVER RUN 
004060 012767 000054 175412 MOV #54,$TMP1 - FRA Fue’ PARITY ERROR 
004066 012700 170026 MOV ERKERROVRRUN! FRAERR'PARER! 26, RO sEXPECTED 
004072 000167 177660 JMP 
004076 012767 001054 175374 68: MOV #1054,$TAPI sBAD STOP BIT FOR FRAME ERROR 
004104 01 709 1 9026 MOV ARXERATFRMERR: 26° RO sEXPECTED 
004110 000167 17764 JMP $ 
004114 012767 000054 175356 7$: MOV #54 ,$TMP AD STOP BIT & PARITY 
004122 012700 130026 MOV AaNERR'FRMERR: PAREN: 26,2 SEXPECTED 
9041 $ 000167 177624 len JMP 3$ :00 IT 
8 sz THIS TEST PROVES THAT RNERR FREEZES THE “RECEIVER RESET" 
: WHI — IN STRIP SYNC MODE 
THIS TEST FIRST PROVES THAT AUTOMATIC aft Sets OCCUR WHEN 
tOSTRIP SYNC IS SET & SYNC CHARACTERS ARE S 
ee a -y Da SHOULD OCeURT THES AUTOMATIC RESET 
::1$ DISCOMBOBULATED 
T:1E. FORCE PARITY ERROR WHILE STRIP SYNC IS SET 
s:NOTE: NORMALLY THE LOGIC RESETS THE RXDONE oe FLAGS 
::PROVIDING THAT ONLY GOOD SYNC CHARACTERS ARE SEN 
:;BuT, IF AN rie — RXDONE PLUS RXERR ARE ASSERTED 
i EMODE : ISGC (ISYM 
i ELENGT H: SEVEN. 
ARITY: EVEPAR 
5 CHARACTER EXPECTED: 226 


NOTE THAT Mey PARITY BIT SHOULD SHOW 
;UP IN THE DATA IE. BIT SEVEN FOR 
seys® LEVEL CODE 

2 CHARACTER SENT: SYNC char ACTE 

NOTE: THIS TEST USES ONLY THE RECEIVER LOGIC 


ee 
S RRRRHHHRAARReteeeeeeeeeeeeeetereeeeeeaatatenaneteraeneneeenenese 


004132 000004 1513: SCOPE 

004134 052777 000400 175564 BIS WMRESET,@TXCSR MASTER RESET 
004142 012777 000000 175552 MOV #ISYMOD,@PARCSR ;SET THE MODE 
004150 052777 000400 175550 BIS #MRESET.a@TXCSR :MASTER RESET 


3SET MAINT DATA, CLK BREAK, GMAINTENANCE MODE 


PORORUNORy @ POMPE PONINUWIW SON at et at a Ss Ss Ss Ss SS Ss Sh Ss SN Ss BS BS OO OO ee 
a a i i ti it ttt tii ittitttttititinl 


004156 012777 064001 175542 MOV @MTIDATA! CLK'MINT 'BREAK, aTXCSR 

sSET MODE ,# OF BITS. PARITY SENSE @LOAD SYNC aris 
004164 012777 005626 175530 mov aisy ROD eee Ope @PAR 
004172 016703 175520 MOV FOR ERROR MSG 
004176 012767 000003 174720 MOV rie cous Ae 3 TIMES SYNC CHAR WILL BE SENT 
004204 052777 000020 175500 BIS #SYNSCH,@RXCSR :SET SYNC SEA 

> POKE cK 10 Get eneCEVER FATD SYNCROLZATION. .. 

004212 042777 920000 175506 BIC #cLK, i POKE CLK DOWN 
004220 052777 020000 175500 UP 


ee ee eS tt tt el el ele elle eee eee eee eee eee eee eee 


BIS tat OKE CLK 
sPOKE CLK TO GET mete at TNTO SYNCRONT DATION” 
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CNDUTA.M11 30-OCT-82 11:16 NITIALIZE THE COMMON TAGS SEQ 0035 
(2) 004 042777 020000 175472 BIC #CLK, aTxcsr sPOKE CLK DOWN 
(33 004 ¢e 052777 090000 175464 BIS aTXCSR SPOKE CLK 
(1) 004242 052777 9409 175442 BIS aStpein @RXCSR :SET STRIP SYNC 
(1) 00425 Qig767 9000) 174644 2%: MOV #10. SHIFT [8 OF 
(1) 004256 012767 001454 175214 MOV #1454, $TMP1 SYNC CHAR. + START&STOP+ PARITY 
(1) 004264 004767 012636 1$: JSR PC, RPOKE {SHIFT IN THIS CHARACTER 
(1) 004270 105777 175416 TSTB 3s @RX :RXDONE = 0 ? 
(1) 74 100001 BPL < te 
(1) 004276 104004 ERROR & sRXDONE SHOULD NOT BE SET 
(1) 004300 005367 174620 DEC OUNT :# OF SYNC CHARS 
(1) 004304 001361 BNE $ :GO AGAIN ? 
(1) 00430 012700 000226 MOV #226,RO : EXPECT ED 
(1) 004312 017701 175400 MOV aRXDBUF , Ri 
(1) NOTE THAT THIS IS THE FIRST TIME 
(1) : RXDBUE | a Is pEAD sages THERE SHOULD BE 
(1) 004316 020001 CMP RO,R1  : COMPARE EXPECTED VS ACTUAL 
(1) 004320 001401 BEQ ey) 
(1) 004322 104002 ERROR 2 DATA CHARS SHOULD COMPARE 
1) THER — SHOULD BE NO RXERR'S 
(1) 006324 012767 000004 174572 MOV UNT’ -# 
(1) 004332 012700 110026 MOV #RXERR! PARER! 26,R0 XPECTED 
(1) 004336 012767 001054 175134 MOV #1054,$TMP1 :BAD syni CHAR (WRONG PARITY) 
(1) 004344 012767 000012 174550 38: MOV #10. SHIFT 34 OF SHIFTS 
(1) 004352 004767 012570 JSR PC, RPOKE SSHIFT IN THIS CHAR 
(1) 006356 105777 175330 TSTB ARKCSR sRXDONE = 1? 
(1) 004362 100401 BMI 
(1) 006364 104004 ERROR i* :RXDONE SHOULD Be ask! 
(1) 004366 017701 175324 MOV @RXDBUF ,R1 S ACTUAL 
(1) 004372 020001 CMP RO,R1 s COMPARE EXP vs Rr 
(1) 004374 001401 BEQ 
(1) 004376 104000 ERROR DID THE RESPECTIVE ERROR TOP THE 
(1) AUTOMATIC pRESSETING OF RXDONE a ERROR FLAGS 
a) ‘NOTE oaaT THE PARITY BIT SHOULD 
(1) :SHOW UP IN THE DAT 
(1) "1E. BIT SEVEN FOR SEVEN LEVEL CODE 
(1) 004400 005367 '74520 DEC COUNT i” OF SYNC CHARS 
(1) 004404 001445 BEQ ag FIN ISHED | ? GET OUT OF TEST 
(1) 004406 922767 0(:0003 174510 CMP #3, COUNT SYN NC CHARS 
(1) 00441 01423 BEQ 6$ : CHECK rRame ERR 
(1) 004416 022767 900002 174500 CMP #2, COUNT #0 SYNC tH ARS 
(1) 004424 001426 BEQ FRAME ERROR & BAD PARITY ? 
(1) jNOPE THEN IT ccOUNT) Must BE = 1 THEREFORE.... 
(1) 004426 012767 006012 174466 #10.,SHIFT 3# OF SHIFTS 
(1) 006434 012767 000054 175036 MOV #54,$TMP1 [FRAME & PARITY ERROR 
(1) 004442 004767 012500 JSR PC, RPOKE ‘SHIFT IN THIS CHAR 
(1) sNOW DON'T READ THE RXDBUF TO CREATE OVER RUN 
(1) 0044646 012767 000054 175024 MOV #5 SFRAME & PARITY ERROR 
(1) 004654 01 700 170026 MOV BRXERR'OVRRUN? FRA MERR!PARER! 26,RO0 SEXPECTED 
(1) 006460 000167 177660 JMP GA IN 
(1) 0044 012767 000454 175006 6$: MOV TPT D STOP BIT FOR FRAME ERROR 
(1) 004472 01 700 120226 MOV PRRERRIFRMERR!226~ RO SEXPECTED 
(1) 00447 167 17764 JMP 5, -DO IT AGAIN 
(1) 004502 012767 090054 174770 7$: MOV mpi - BAD STOP BIT & PARITY 
(1) 004510 012700 130026 MOV PARERATERMERRIPAREAT 2G & SEXPECTED 
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23 CNDUTA.M11 30-OCT-82 11:16 INITIALIZE THE COMMON TAGS SEQ 0036 
(1) 004 000167 177624 JMP 3$ ;00 IT AGAIN 


2 
vw 
No 
os 
uw 
wr 


7 3:THIS TEST PROVES THAT RXERR FREEZES THE RECEIVER RESET’ 
StWHILE IN STRIP SYNC MOD 
::THIS TEST FIRST PROVES THAT AUTOMATIC RESETS OCCUR WHEN 
S:STRIP SYNC IS SET & SYNC CHARACTERS ARE S 
tieee.eBUT IF AN ERROR SHOULD OCCUR....THIS AUTOMATIC RESET 
7:18" DISCOMBOBULATED 
SI]E. FORCE PARITY ERROR WHILE STRIP SYNC IS SET 
SINOTE: NORMALLY THE LOGIC RESETS THE RXDONE BERROR FLAGS 
[PROVIDING THAT ONLY GOOD SYNC CHARACTERS ARE SENT... 
[:BUT, IF AN RXERR OCCURS RXDONE PLUS RXERR ARE ASSERTED 
SIMODE: ISOC (ISYMO 
33LEN re SIX 
szPARITY: EVEPAR 
tICHARACTER EXPECTED: 126 
sNOTE THAT THE PARITY BIT SHOULD SHOW 
[UP IN THE DAT IE. BIT SIX FOR 


poe X LEVEL CODE 
;sCHARACTER SENT: SYNC CHARACTER 
i THIS TEST USES ONLY THE RECEIVER LOGIC 


WETTTTTITTITITIIITITIT TTL TILT iLiLii iil 


004520 000004 use SCOPE 

004522 052777 000400 175176 BIS #MRESET @TXCSR MASTER RESET 
004530 012777 000000 175164 MOV WISYMOD,@PARCSR :SET THE MODE 
004536 052777 000600 175162 BIS @MRESET.aTXCSR :MASTER RESET 


SET MAINT DATA,CLK,BREAK ,@MAINTENANCE MODE 


004544 012777 064001 175154 MOV #@MTDATA!CLK MINT ‘BREAK, aTXxXCSR 

:SET MODE .# OF BITS. PAR ITY SENSE,@LOAD SYNC gfe 
004552 012777 003526 175142 MOV #ISYMOD'SIX! EVEPAR: 126 @PARCS 
004560 016703 1751 MOV ROBUF RS up FOR eRe OR MSG 
004564 012767 000003 174332 MOV #3, COUNT i oF TIMES SYNC CHAR WILL BE SENT 
004572 052777 000020 175112 BIS #SYNSCH,@RXCSR :SET SYNC SEARCH 

;POKE C.K TO cet RECEIVER ATO SYNCROIZATION. ... 

004600 042777 020000 175120 BIC #cLK 3 THCSR :POK E CLK DOW 
004606 052777 020000 175112 BIS XCSR KE CLK oe 

sPOKE CLK TO GET soci INTO SYNCRONIZATION” 
004614 042777 020000 175104 BIC #CLK,aTXCSR sPOKE CLK DOWN 
004622 052777 020000 175076 BIS @CLK.aTXCSR SPOKE CLK UP 
0046 092777 90400 175054 BIS asTPSYN @RXCSR :SET STRIP SYNC 
004636 012767 000011 174256 2%: MOV #9..SHIFT 3M OF SHIFTS 
00464 012767 000654 174626 MOV #654 STMP1 sSYNC CHAR + START&STOP* PARITY 
004652 004767 012270 1$: JSR PC ,RPOKE :SHIFT IN THIS CHARACTER 
004656 105777 175030 TSTB @RXCSR ;RXDONE = 0 ? 
004662 100001 BPL + 
004664 104004 ERROR 4 ;RXDONE SHOULD Not BE SET 
004 005367 174232 DEC OUNT :# OF SYNC CHARS 
004672 001361 BNE $ [GO AGAIN ? 
004674 012700 000126 MOV #126 RO SEXPECTED | 
004700 017701 175012 MOV XDBUF A 


—— + tT. TT tte tele teteteleleleteate@tetetetletalelelelstetetetet ete ieteletetletelelete eel 


ee ee ed ed et ed BATION <2 SP PIPININIDINYD ND EB BN et et rt et et at ot 0 tt tS 
ee er ee er ee ee ee ee er ee ee er a ee ee ee ee ee ee Se Se ew ew ew Fe 


CTUAL 
e THAT T THIS IS THE FIRST TIME 
i RED BUT IS READ....... THERE SHOULD BE 
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124 CNDUTA.M11 —- 30-OCT-82 11:16 ITIALIZE THE COMMON TAGS SEQ 0037 
(1) :NO OVER RUN ERROR 4$ 
(1) 0046704 920001 CMP RO,R1  :COMPARE EXPECTED VS ACTUAL 
(1) 004706 001401 BEO of 
(1) 004710 104002 ERROR 23 DATA CHARS SHOULD COMPARE | 
(1) 004712 012767 000004 174204 MOV 4, COUN ff 
(1) 004720 01 700 110026 MOV ARIERR' PARER!26, RO s EXPECTED 
(1) 006724 012767 000454 174546 MOV #454 STMP1 ;BAD > syne’ CHAR (WRONG PARITY) 
(1) 004732 012767 000011 174162 3$: MOV SHIFT :# OF SHIFTS 
(1) 006740 004767 012208 JSR 4% * RPOKE SSHIFT IN THIS CHAR 
(1) 004744 105777 17474 TSTB ARXCSR :RXDONE = 1? 
(1) 006750 100401 BMI 
(1) 006752 104904 ERROR XDONE SHOULD BE SET 
(1) 004754 017701 174736 MOV aRXDBUF F Rt sACTUAL DATA 
(1) 004760 020001 CMP RO,R1 —; COMPARE EXP VS ACT 
(1) 004762 001401 BEQ ey) 
(1) 004764 104000 ERROR :DID THE RESPECTIVE ERROR P THE 
(1) :AUTOMATIC RESSETING OF RXDONE e ERROR FLAGS 
(1) ‘NOTE THAT THE PARITY BIT SHOULD 
(1) :SHOW UP IN THE DATA 
(1) STE « ei" oh Fon SIX LEVEL CODE 
(1) 004766 005367 174132 DEC COUNT ;# OF SYNC CHAR 
(1) 004772 001445 BEO 5$ FINISHED | ? oot! OUT OF TEST 
(1) 004774 022767 000003 174122 CMP #3, COUNT’ SY NC CHARS 
(1) 005002 001423 BEQ 6% CHECK FRAME. ERROR 
(1) 005006 022767 0M4002 174112 CMP #2,C0 YN bua RS 
(1) 005012 001426 BEQ s CHECK F FRAM AME ERROR & BAD PARITY ? 
(1) ;NOPE THEN IT (COUNT) MUST BE = 1 THEREFORE.... 
(1) 005014 012767 000011 174100 MOV #9.,SHIFT 34 OF SHIFT 
(1) 005022 012767 000054 174450 MOV #54, -$1HPI FRAME @ PARITY ERROR 
(1) 005030 004767 012112 JSR OKE HIFT IN THIS CHA 
(1) :NOW DON'T READ Tie RXDBUF TO crate OVER RUN 
(1) 005034 012767 000054 174436 MOV TMP FRAME Hi PARITY ERROR 
(1) 005042 012700 170026 MOV #RXERR'OVRRUN! FRAERR' PARER? 26. RO SEXPECTED 
(1) 005046 000167 177660 JMP IN 
(1) 005052 012767 000254 174420 6%: MOV p STOP BIT FOR FRAME ERROR 
(1) 005060 012700 120126 MOV PRTERRIERMERR! 125° RO SEXPECTED 
(1) 005064 000167 177642 JMP -DO 
(1) 005070 012767 000054 174402 7$: MOV a5 STOP BIT & PARITY 
(1) 005076 012700 130026 MOV FAXERR:FRMERRPARER! 26,8 RO EXPECTED 
(1) 005102 000167 177624 JMP 3$ 700 IT A 
(1) 095106 5$: . 
8155 3; THIS TEST PROVES THAT RXERR FREEZES THE “RECEIVER RESET 
(1) S:WHILE IN STRIP SYNC MODE 
(1) S:THIS TEST FIRST PROVES THAT AUTOMATIC RESETS OCCUR WHEN 
(1) 7;STRIP SYNC IS SET & SYNC CHARACTERS ARE S$ 
(1) d3ee+.eBUT IF AN ERROR SHOULD OCCUR....THIS AUTOMATIC RESET 
(1) 3:1$ DISCOMBOBULATED 
(1) S:1€. FORCE PARITY ERROR WHILE STRIP SYNC IS $ 
(1) Z;NOTE: NORMALLY THE LOGIC RESETS THE RXDONE SF hRoR FLAGS 
(1) s3PROVIDI ,* THAT ONLY GOOD SYNC CHARACTERS ARE SENT. 
(1) [:BUT, IF AN RXERR OCCURS RXDONE PLUS RXERR ARE ASSERTED 
(1) S:MODE: ISOC (1SYMOD) 
(1) SILENGTH: FIVE 
(1) sZPARITY: EVEPAR 


m 3 
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25 CNDUTA.M11 30-OCT-82 11:16 INITIALIZE THE COMMON TAGS SEQ 0038 
(1) s: CHARACTER EXPECTED :66 
(1) ;NOTE THAT THE PARITY BIT SHOULD SHOW 
(1) [UP IN THE DATA 1. BIT FIVE FOR 
(1) SFIVE LEVEL CODE 
(1) s:CHARACTER SENT: SYNC CHARACTE 
(1) SINOTE: THIS TEST USES ONLY THE RECEIVER LOGIC 
(5) eee TTT TTT rer rrr rrr TTT TTT TTTTTTTITITITI TTL TTL TTT it ii) 
(a) 005106 000004 515: SCOPE 
(3) 005110 052777 000400 174610 BIS #MRESET,@TXCSR ;MASTER RESET 
(2) 005116 012777 000000 174576 MOV #ISYMOD.@PARCSR :SET THE MODE 
005124 052777 000400 174574 BIS #MRESET.aTXCSR :MASTER RESET 
(3) ;SET MAINT DATA, CLK,BREAK,@MAINTENANCE MODE 
(2) 005132 012777 064001 174566 MOV #MTDATA'CLK!MINT BREAK, a@TXCSR 
(2) ;SET MODE ,# OF BITS,PARITY SENSE,@LOAD SYNC REG 
(2) 005140 012777 001466 174554 MOV #ISYMOD!F IVE 'EVEPAR'66,@PARCSR 
(1) 005146 016703 174544 MOV RXDBUF ,R3 sSET UP FOR ERROR MSG 
(1) 005152 012767 000003 173744 MO #3, COUNT OF TIMES SYNC CHAR WILL BE SENT 
(2) 005160 052777 000020 174524 BIS #SYNSCH,@RXCSR :SET SYNC SEARC 
(2) >POKE CLK TO GET RECEIVER INTO SYNCROIZATION.... 
(2) 005166 042777 020000 174532 BIC #CLK,aTXCSR sPOKE CLK DOWN 
(2) 005174 052777 020000 174524 BIS #CLK.aTXCSR “POKE CLK UP 
(2) sPOKE CLK TO GET LOGIC INTO SYNCRONIZATION 
(2) 005202 042777 020000 174516 BIC #CLK,aTXCSR sPOKE CLK DOWN 
(2) 005210 052777 020000 174510 BIS #CLK.aTXCSR :POKE CLK UP 
(1) 005216 052777 000400 174466 BIS WSTPSYN,@RXCSR ;SET STRIP SYNC 
(1) 005224 012767 000010 173670 2$: MOV #8. SHIFT :# OF SHIFTS 
(1) 005232 012767 000354 174240 MOV #354,$TMP1 *SYNC CHAR + START&STOP+ PARITY 
(1) 005240 004767 011702 1$: JSR PC ,RPOKE SSHIFT IN THIS CHARACTER 
(1) 005244 105777 174442 TSTB  @RXCSR ;RXDONE = 0 ? 
(1) 005250 100001 BPL +4 
(1) 005252 104004 ERROR 4 sRXDONE SHOULD NOT BE SET 
(1) 005254 005367 173644 DEC COUNT :# OF SYNC CHARS 
(1) 005260 001361 BNE 2$ [G0 AGAIN ? 
(1) 005262 012700 000066 MOV #66,RO EXPECTED 
(1) 005266 017701 174424 MOV @RXOBUF RI s ACTUAL 
(1) sNOTE THAT THIS IS THE FIRST TIME 
(1) SRXDBUF IS READ.......THERE SHOULD BE 
(1) [NO OVER RUN ERROR S 
(1) 005272 020001 CMP RO.R1  :COMPARE EXPECTED VS ACTUAL 
(1) 909274 001401 BEQ Ry 
(1) 005276 104002 ERROR 2 DATA CHARS SHOULD COMPARE 
(1) STHERE SHOULD BE NO RXERR'S 
(1) 005300 012767 000004 173616 MOV #4, COUNT a 
(1) 005306 01 700 110026 MOV #RXERR!PARER'26,R0 > EXPECTED 
(1) 005312 oi 767 000254 174160 MOV #254, $1MP1 :BAD SYNC CHAR (WRONG PARITY) 
(1) 005320 012767 000010 173574 3$: MOV #8. SHIFT *# OF SH 
(1) 005526 004767 011614 JSR C.RPOKE [SHIFT IN THIS CHAR 
(1) 005332 105777 174354 1STB @RXCSR ;RXDONE = 1? 
(1) 005336 100401 BMI + 
(1) 005340 104004 ERROR & *RXDONE SHOULD BE SET 
(1) 005342 017701 174350 MOV ARXDBUF RI ; L DATA 
(1) 005346 020001 CMP RO,R1 ‘sCOMPARE EXP VS ACT 
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126 CNDUTA.M11 seen 9283 11:16 INITIALIZE THE COMMON TAGS SEQ 0039 

(1) 005350 001401 BEQ 
(1) 005352 104000 ERROR IDIp tT HE RESPECTIVE ERROR 4 STOP THE 
(1) SAUTOMATIC RESSETING OF RXDONE & ERROR FLAGS 
(1) Se eee e CHECK Veisdeseee 
(1) ‘NOTE THAT THE PARITY BIT SHOULD 
1} 11 pm Ut PVE FOR FIVE LEVEL CODE 
(1) 005354 005367 173544 DEC COUNT i” OF SYNC CH 
(1) 005360 001445 BE t 3 FINISHED  ? Ge! yout OF TEST 
(1) 005362 022767 000003 173534 CMP #3, COUNT’ YNC CHARS 
(1) 005370 001423 BEQ x} s CHECK shane. ERROR 
(1) 005372 022767 000002 173524 CMP #e.CO -# OF 1: 
(1) 005400 1426 BEQ 7 HECK FRAME ERROR "ead PARITY ? 
(1) Nore THEN IT ccBUNTY 1 BE = 1 EREFORE.... 
(1) 005402 012767 000010 173512 US) OF SHIF 
(1) 005410 012767 000054 174062 MOV #54, sre : ERAME & PARITY ERROR 
(1) 005416 004767 011524 JSR OKE T IN THIS CHA 
(1) sNOW DON'T READ rae RXDBUF 10 crbate. OVER 
(1) 005422 012767 000054 174050 MOV #54,$TM “FRAME & PARITY ERROR 
(1) 005430 012700 170026 MOV gaxERn OVRRUN'FRAERR: PARER: 26,R0 sEXPECTED 
(1) 005434 000167 177660 JMP D0 IT AGA IN 
(1) 005440 012767 000154 174032 6$: MOV #154,$TMP1 D STOP BIT FOR FRAME ERROR 
(1) 005446 012700 120066 MOV ARXERR!FRMERR' 66, 20 SEXPECTED 
(1) 005452 000167 177642 JMP -DO 
(1) 005456 012767 000054 174014 7$: MOV #54,$TMPI “BAD STOP BIT & PARITY 
(1) 005464 012700 130026 MOV PAXERR  FRMERR!PARER: 26, RO sEXPECTED 
(1) 005470 000167 177624 JMP 3$ :D0 IT AGAIN 
(1) 005474 S$: 

8156 s;THIS TEST VERIFYS WORD LENGTH SELECT OF 
(1) T:THE TRANSMITTER SECTION, IT USES THE DNA FLAG 
Cv) CORR Ey oy TO DETERMINE THAT IT WAS SELECTED 
(1) SINOTE: DNA COMES UP ON THE FIRST RISING BIT 
(1) SEDGE OF THE NEXT CHARACTER IF NO NEW CHARACTER IS 
(1) 33LOADED INTO TXDBUF 
(1) SMODE : SYNINT 
(1) ::PARITY:NO PARITY 
(1) 3 SLENGTH:F IVE 
(5) PTTTTTTIETTTETTTTTTITTTITTTTTLLL TITTLE 
4) 005474 000004 1S16: SCOPE 
(3) 095476 052777 000400 174222 BIS WMRESET.@TXCSR MASTER RESET 
(2) 905504 012777 030000 174210 MOV #SYNINT.@PARCSR :SET THE MODE 
(3) 005512 052777 000400 174206 BIS #MRESET.a@TXCSR MASTER RESET 
(2) SET MAINTENANCE MODE & SEND 
(2) OTE:BIT WINDOWECLK ARE CLEARED (MTDATA=0) 
(2) 005520 012777 004020 174200 OY #MINT' SEND aTXCSR 
(2) sSET MODE,# OF BITS,PARITY SENSE,& LOAD SYNC REG 
(2) 005526 012777 030026 174166 MOV #SYNINT!F IVE 'NOPAR! 6 aPA RCSR 
(1) 005534 016703 174166 MOV TXCSR,R3 >SET UP FOR ERROR MSG 
(1) 005540 M2777 000021 174164 MOVB  #21,a1XDBUF LOA _ CHAR 
(1) 005546 012767 000021 173724 MOV #21_$TMP1 SNIP TED CHAR 
(1) 005554 012767 000005 173340 MOV #5, SHIFT :# OF SHIFTS 


B 4 
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CNDUTA.Mi1 30-OCT-82 11:16 INITIALIZE THE COMMON TAGS SEQ 0040 
(1) sPOKE CLK TO GET INTO SYNCRONIZATION 
(3) 005562 052777 920000 174136 BIS #CLK,aTXCSR sPOKE CLK UP 
(2) 00557 04 777 020000 174130 BIC #CLK,aTXCSR SPOKE CLK DOWN 
(1) 005576 00 909 1$: CLR 
(1) 005600 90606 173674 ROR $TMP1  ;FORCE CARRY 
(1) 005604 10 908 BCC 
(1) 00960 052700 002000 im BIS #B1TW,RO sEQUIV OF BIT WINDOW 
(2) 005612 052777 020000 174106 BIS #CLK,@TXCSR sPOKE CLK UP 
(2) 005620 042777 020000 174100 BIC #CLK.aTXCSR SPOKE CLK DOWN 
(1) 0056 $ 017701 174074 MOV atx gr RI SACTUAL 
(1) 0096 042701 075777 BIC #075777,R1 'SAVE BITW & DNA 
(1) 005636 ; 901 CMP RO,R1 ‘sCOMPARE EXP VS ACT 
(1) 005640 001401 BEQ +6 
(1) 005642 104003 ERROR 3 sBIT WINDOW DID NOT MATCH ACTUAL DATA 
(1) ‘BIT,...-ALSO CHECK DNA 
(1) 005644 005367 173252 DEC SHIFT :# OF SHIFTS 
(1) 005650 001352 BNE 1$ [D0 IT AGAIN ? 
(1) sNOW POKE CLK TO SEE DNA 
(1) 005652 052777 020000 174046 BIS #CLK,aTXCSR sPOKE CLK 
(1) 005660 012700 100000 MOV #100000,R0 S EXPECTED 
(1) 005664 017701 174036 MOV atxcs aR SACTUAL 
(1) 005670 042701 077777 BIC #77777_RI [SAVE DNA ONLY 
(1) 005674 020001 CMP RO,R1 | ;COMPARE EXPECTED VS ACTUAL 
(1) 005676 001401 BEQ +6 
(1) 005700 104003 ERROR 3 sDNA SHOULD BE SET 
(1) [IF DNA DID NOT SET ,CHECK WORD LENGTH 
(1) SSELECT LOGIC OF THE TRANSMITTER 
(1) 005702 005777 174020 TST @TXCSR DNA ? 
(1) 005706 100001 PL +4 
(1) 005710 104004 ERROR 4 ;DNA SHOULD NOT BE SET 
(1) ;1T SHOULD HAVE BEEN CLEARED FROM 
(1) [PREVIOUS READ 
8157 s:THIS TEST VERIFYS WORD LENGTH SELECT OF 
(1) ?:THE TRANSMITTER SECTION, IT USES THE DNA FLAG 
(1) SSAND BIT WINDOW TO DETERMINE THAT IT WAS SELECTED 
(1) +: CORRECTLY 
(1) S:NOTE: DNA COMES UP ON THE FIRST RISING BIT 
(1) SS EDGE OF THE NEXT CHARACTER IF NO NEW CHARACTER IS 
(1) S:LOADED INTO TXDBUF 
(1) 7 MODE :SYNINT 
(1) 77PARITY:NO PARITY 
(1) S LENGTH: SIX 
(5) MTUVTTTITTITITITITITITITITITITILIT Titi 
4) 005712 000004 117: SCOPE 
(3) 005714 052777 000400 174004 BIS WMRESET,@TXCSR MASTER RESET 
2) 009722 012777. 030000 1737 2 MOV @SYNINT.@PARCSR :SET THE MODE 
(3) 005730 052777 000400 17377 BIS #MRESET.@TXCSR :MASTER RESET 
(2) ;SET MAINTENANCE MODE & SEND 
(2) -NOTE:BIT WINDOWRCLK ARE CLEARED (MTDATA=0) 
(2) 005736 012777 006020 173762 MOV @MINT' SEND, aTXCSR 
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CNDUTA.M11 -0CT- INITIALIZE THE COMMON TAGS SEQ 0041 

(2) sSET MODE,# OF BITS,PARITY SENSE,& LOAD SYNC REG 
(3} 005744 o12777 032026 173750 Mov #SYNINT SIX! NOPAR 26, aPAR 
(1) 003732 1 08 i MOV CSR,R3 POR ERROR MSG 
(1) 005756 112777 000021 173746 MOVE #31 af kDBur : 
(1) 005764 4) 767 000021 173506 MOV 1,$TMP1 ESTP TED. CHAR 
(1) 005772 012767 000006 173122 MOV #6, SHIFT SHIFTS 
(1) :POKE CLK TO cet” Fito SYNCRONIZA at ton 
(2) 006000 052777 920000 173720 BIS #CLK,aTXCSR :POK — CLK 
(2) 006006 042777 020000 173712 BIC #CLKaTXCSR SPOKE CLK SOUN 
(1) 006014 005000 1$: CLR 
(1) 006016 906067 173456 ROR $TMP1 FORCE CARRY 
(1) 006022 if 908 BCC 
(1) 9060 4 052700 002000 - BIS #B1TW,RO sEQUIV OF BIT WINDOW 
(2) 006030 052777 020000 173670 BIS #CLK,a@TXCSR :POKE CLK UP 
(2) 006036 042777 020000 173662 BIC wCLK atxcsR [POKE CLK DOWN 
(1) 006044 017701 173656 MOV THCSR RT Ri ACTUAL 
(1) 006050 042701 075777 BIC ors? 7,R AVE BITW & DNA 
(1) 006054 020001 CMP RO,R1 RT OMPARE’ exe vS ACT 
(1) 006056 001401 BEO +4, 
(1) 006060 104003 ERROR “BIT WINDOW DID NOT MATCH ACTUAL DATA 
(1) 'BIT,...<ALSO CHECK DNA 
(1) 006062 005367 173034 DEC SHIFT :# OF SHIFTS 
(1) 006066 001352 BNE 1$ :DO IT AGAIN ? 
(1) :NOW POKE CLK TO SEE DNA 
(1) 006070 052777 020000 173630 BIS #CLK,aTXCSR sPOKE CLK 
(1) 006076 012700 100000 MOV #100000,R0 SEXPECTED 
(1) 006102 017701 173620 MOV aTxcsSR,R1 SACTUAL 
(1) 006106 042701 077777 BIC #77777_RI :SAVE DNA ONLY 
(1) 006112 020001 CMP RO,R1  ; COMPARE EXPECTED VS ACTUAL 
(1) 006114 001401 BEQ +4 
(1) 006116 104003 ERROR 3 ;DNA SHOULD BE SET 
(1) F DNA DID NOT SET ,CHECK WORD LENGTH 
(1) i SELECT LOGIC OF THE TRANSMITTER 
(1) 006120 005777 173602 TST aTxXCSR :DNA 
(1) 006124 100001 BPL +4 
(1) 006126 104004 ERROR & sDNA SHOULD NOT BE SET 
(1) 311 SHOULD HAVE BEEN CLEARED FROM 
(1) :PREVIOUS READ 

8158 s;THIS TEST VERIFYS WORD LENGTH SELECT OF 
(1) S:THE TRANSMITTER SECTION, IT USES THE DNA FLAG 
(1) SAND BIT WINDOW TO DETERMINE THAT IT WAS SELECTED 
(1) i: CORRECTLY 
(1) T:NOTE: DNA COMES UP ON THE FIRST RISING BIT 
(1) SZEDGE OF THE NEXT CHARACTER IF NO NEW CHARACTER IS 
(1) ::LOADED INTO TXDBUF 
(1) i MODE: SYNIN 
(1) ::PARITY:NO PARITY 
(1) 3 LENGTH: SEVEN 
(5) . PO, | SE NE OE SE Eee 
4) 006130 000004 1$110: SCOPE 
(3) 006132 052777 000400 173566 BIS WMRESET,@TXCSR ;MASTER RESET 
(2) 006140 012777 030000 173554 MOV #SYNINT.@PARCSR :SET THE MODE 
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006146 052777 000400 173552 BIS MMRESET,@TXCSR ;MASTER RESET 
(2) SET MAINTENANCE MODE & SEND 
(2) OTE:B1T WINDOW CLK ARE CLEARED (MTDATA=0) 
(2) 006154 012777 004020 173544 io OV #MINT! SEND, aTXCSR 
($} sSET MODE,@ OF BITS. PARITY SENSE & LOAD SYNC gfes 
(2) 006162 012777 034026 173532 MOV SYNINT!SEVEN!NOPAR | 26,aPA 
(1) 006170 016703 1735 MOV TXCSR R3 rset uP FOR SRROR MSG 
(1) 006174 112777 900021 173530 MOVB #21, aT XDBUF SLOAD CHAR 
(1) 006202 012767 000021 173270 MOV ’ 1,$TMP1 ESHIFTED CHAR 
(1) 006210 012767 000007 172704 MOV »SHIFT TS 
(1) :POKE CLK TO cet” INTO  YNCRONI ZATION 
(2) 006216 052777 020000 173502 BIS #CLK,aTXCSR :POKE CLK UP 
(2) 006224 042777 020000 173474 BIC #CLK.aTXCSR SPOKE CLK DOWN 
(1) 006232 005000 1$: CLR RO 
(1) 006234 e's s434 173240 ROR STMP1 sFORCE CARRY 
(1) 006240 103002 BCC 
(1) 006 ae 052700 002000 = BIS #B1Tw,RO sEQUIV OF BIT WINDOW 
(2) 006246 052777 020000 173452 BIS #CLK,@TXCSR :POKE CLK UP 
(2) 006254 042777 020000 173444 BIC #cLk, ATXCSR SPOKE CLK DOWN 
(1) 006262 017701 173440 MOV atxcsr ACTUAL 
(1) 006266 042701 075777 BIC eS ra AVE BITW & DNA 
(1) 006272 020001 CMP RO,R1 RE OMPARE® BP VS ACT 
(1) 006274 001401 BEQ Ry 
(1) 006276 104003 ERROR 3 :BIT WINDOW DID NOT MATCH ACTUAL DATA 
(1) 'BIT,....ALSO CHECK DNA 
(1) 006300 005367 172616 DEC SHIFT :# OF SHIFTS 
(1) 006304 001352 BNE $ [D0 IT AGAIN ? 
(1) :NOW POKE CLK TO SEE DNA 
(1) 006306 052777 020000 173412 BIS #CLK,aTXCSR ;POKE CLK 
(1) 006314 012700 100000 MOV #100600,R0 S EXPECTED 
(1) 006320 017701 173402 MOV aTXcSR,R1 sACTUAL 
(1) 006324 042701 077777 BIC #77777.R1 ?SAVE DNA ONLY 
(1) 006330 020001 CMP RO,R1 | ;COMPARE EXPECTED VS ACTUAL 
(1) 006332 001401 BEQ +4 
(1) 006334 104003 ERROR 3 iDNA SHOULD BE SET 
(1) F DNA DID NOT SET ,CHECK WORD LENGTH 
(1) :SELECT LOGIC OF THE TRANSMITTER 
(1) 006336 005777 173364 TST aTxCSR :DNA ? 
(1) 006342 100001 BPL +4 
(1) 096344 104004 ERROR 4 :DNA SHOULD NOT BE SET 
(1) ;17 SHOULD HAVE BEEN CLEARED FROM 
(1) [PREVIOUS READ 
8159 s;THIS TEST VERIFYS WORD LENGTH SELECT OF a 
(1) TITHE TRANSMITTER SECTION, IT USES THE DNA FLAG 
(1) S:AND BIT WINDOW TO DETERMINE THAT IT WAS SELECTED 
(1) >: CORRECTLY 
(1) SINOTE: DNA COMES UP ON THE FIRST RISING BIT 
(1) SEDGE OF THE NEXT CHARACTER IF NO NEW CHARACTER IS 
(1) ZSLOADED INTO TXDBUF 
(1) 73M :SYNINT 
(1) j PARITY: NO + ie 
(1) > SLENGTH:EI1GHT 
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(1) 33 
(5) SRR RATeHAeeeeeHeeeeeeeeaakaeeetkeetenaetetetetererenese 
(4) 006346 000004 #§111: SCOPE 
(3) 006350 052777 990400 173350 BIS WMRESET,@TXCSR ;MASTER RESET 
@ 006356 012777 030000 173336 MOV #SYNINT.@PARCSR :SET THE MODE 
(3) 006364 052777 000400 173334 BIS @MRESET.aTXCSR :MASTER RESET 
(2) :SET MAINTENANCE MODE & SEND 
(2) sNOTE:BIT WINDOWECLK ARE CLEARED (MTDATA=0) 
(2) 006372 012777 004020 173326 OV NT!SEND,aTXCSR 
(3) :SET MODE,# OF BITS,PARITY SENSE,& LOAD SYNC REG 
(2) 006400 012777 036026 173314 MOV #SYNINT ‘EIGHT !NOPAR '26,@PARCSR 
(1) 006406 016703 173314 MOV TXCSR,R3 ;SET UP FOR ERROR MSG 
(1) 006412 112777 900021 173312 MOVB «#21, aT XOBUF ‘LOAD CHAR 
(1) 006420 012767 000021 173052 a¢1,STMPt [SHIFTED CHAR 
(1) 006426 012767 000010 172466 MOV #8. SHIFT “# OF SHIFTS 
(1) SPOKE CLK TO GET INTO SYNCRONIZATION 
(2) 006434 052777 020000 173264 BIS #CLK,aTXCSR sPOKE CLK UP 
(2) 006442 042777 020000 173256 BIC #CLK,aTXCSR [POKE CLK DOWN 
(1) 006450 005000 1$: CLR R 
(1) 006452 006067 173022 ROR STMP1 sFORCE CARRY 
(1) 006456 103002 BCC 
(1) 906460 052700 002000 ie BIS #BiTW,RO sEQUIV OF BIT WINDOW 
(2) 006464 052777 020000 173234 BIS #CLK,aTXCSR sPOKE CLK UP 
(2) 006472 040777 020000 173226 BIC @CLK aTXCSR SPOKE CLK DOWN 
(1) 006500 017701 173222 MOV aTxcsr_Ri S ACTUAL 
(1) 006504 042701 075777 BIC #075777,R1 [SAVE BITW & DNA 
(1) 006510 020001 CMP RO,R1 ;COMPARE EXP VS ACT é 
(1) 006512 001401 BEQ +4 . 
(1) 006514 104003 ERROR 3 :B1T WINDOW DID NOT MATCH ACTUAL DATA 
(1) :BIT,...-ALSO CHECK DNA 
(1) 006516 005367 172400 DEC SHIFT :# OF S 
(1) 006522 001352 BNE 1$ [DO IT AGAIN ? 
(1) :NOW POKE CLK TO SEE DNA 
(1) 006524 052777 020000 173174 BIS #CLK,aTXCSR sPOKE CLK 
(1) 006532 012700 100000 MOV #100600,R0 SEXPECTED 
(1) 006536 017701 173164 MOV aTXCSR,R1 SACTUA 
(1) 006542 042701 077777 BIC #77777.R1 ‘SAVE DNA ONLY 
(1) 006546 020001 CMP RO.R1 | ;COMPARE EXPECTED VS ACTUAL 
(1) 006550 001401 BE +4 
(1) 906552 104003 ERROR 3 sDNA SHOULD BE SET 
(1) :1F DNA DID NOT SET ,CHECK WORD LENGTH 
(1) [SELECT LOGIC OF THE TRANSMITTER 
(1) 006554 005777 173146 TST @TXCSR :DNA ? 
(1) 006560 100001 BPL +4 
(1) 006562 104004 ERROR 4 sDNA SHOULD NOT BE SET 
(1) :1T SHOULD HAVE BEEN CLEARED FROM 
(1) :PREVIOUS READ 

8160 s:THIS TEST VERIFYS WORD LENGTH SELECT OF 
1) T:THE TRANSMITTER SECTION. IT USES THE DNA FLAG 
(1) ‘SAND BIT WINDOW TO DETERMINE THAT IT WAS SELECTED 
(1) >: CORRECTLY 
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(1) ZINOTE: DNA COMES UP ON THE FIRST RISING BIT 
1) S:EDGE OF THE NEXT ¢ HARACTER JF NO NEW CHARACTER IS 
(1) [ILOADED INTO TXDBUF 
(1) 3 ;MODE: SYNE 
(1) :;PARITY:NO PARITY 
‘33 3 LENGTH: FIVE 
(5) MPT TTTITTTTITTTITITTTTTITITILITTI LITT iii 
4) 006564 000004 . #8112: SCOPE 
(3) 006566 052777 000400 173132 BIS WMRESET,@TXCSR ;MASTER RESET 
(2) 006574 012777 020000 173120 MOV #SYNEXT,@PARCSR :SET THE MODE 
G3) 006602 052777 000400 173116 BIS #MRESET.aTXCSR :MASTER RESET 
(2) SET MAINTENANCE MODE & SEND 
(2) NOTE:BIT WINDOWS CLK ARE CLEARED (MTDATA=0) 
(2) 006610 012777 004020 173110 hov #MINT' SEND, aTXCSR 
(2) sSET MODE,# OF BITS, PARITY SENSE .& ae SYNC REG 
(2) 006616 012777 020026 173076 MOV sy MEX T'FIVE 'NOPAR! 26, @PARCSR 
(1) 006624 016703 173076 MOV R3 sSET UP FOR ERROR MSG 
(1) 006630 112777 000021 173074 MOVB a3. oe thoeUF POADY CHAR 
(1) 006636 012767 000021 172634 MOV #21 2 STAP P1 ;SHIFTED CHAR 
(1) 006644 012767 000005 172250 MOV #5, SHIFT OF SHIFTS 
(1) sPOKE CLK TO GET rato SYNCRONIZATION 
(2) 006652 052777 020000 173046 BIS #CLK,aTXCSR sPOKE CLK UP 
(2) 006660 042777 020000 173040 BIC #CLK.aTXCSR :POYE CLK DOWN 
(1) 006666 005000 1$: CLR RO 
(1) 006670 006067 172604 ROR $TMP1  ;FORCE CARRY 
(1) 006674 103002 BCC 2 
(1) 006676 052700 002000 re BIS #B1Tw,RO sEQUIV OF BIT WINDOW 
(2) 006702 052777 020000 173016 BIS @CLK,aTXCSR :POKE CLK UP 
(2) 006710 042777 020000 173010 BIC #CLK ,aTXCSR :POKE actk DOWN 
(1) 006716 017701 17300 MOV aTxcsr_R1 TACTU 
(1) 006722 042701 075777 BIC #075777,R1 SAV vEB BI Tw & DNA 
(1) 006726 020001 CMP RO,R1 ‘;COMPARE EXP VS ACT 
(1) 006730 001401 BEQ +4 
(1) 006732 104003 ERROR 3 BIT WINDOW DID NO! MATCH ACTUAL DATA 
(1) 006734 005367 172162 DEC SHIFT :# OF SHIFTS 
(1) 006740 001352 BNE § [D0 IT AGAIN ? 
(1) sNOW POKE CLK TO SEE DNA 
(1) 906742 052777 020000 172756 BIS @CLK aTXCSR :POKE CLK 
(1) 006750 012700 100000 MOV #100600 ,R0 SEXPECT ED 
(1) 006756 017701 172746 MOV aTxcsr. Rt SACTUA 
(1) 006760 042701 077777 BIC #77777 RI >SAVE DNA ONLY 
(1) 0067 020001 CMP RO,R1 sCOMPARE EXPECTED VS ACTUAL 
(1) 006766 001401 BEQ +4 
(1) 006770 104003 ERROR ;" sDNA SHOULD BE SET 
(1) [IF DNA DID NOT SET ,CHECK WORD LENGTH 
(1) SELECT LOGIC OF THE TRANSMITTER 
(1) 006772 005777 172730 1ST aTxcSR 
(1) 006776 100001 BPL xy 
(1) 007000 104004 ERROR & ;DNA SHOULD NOT BE SET 
(1) :11 SHOULD HAVE BEEN CLEARED FROM 


G 4 
CNDUT=A MACY11 Fae hs ef 14=DEC-82 10:01 PAGE 61-31 
CNDUTA.M1i 30-OCT-82 11:16 INITIALIZE THE COMMON TAGS SEQ 0045 


sPREVIOUS READ 


EST VERIFYS WORD LENGTH SELECT 

33 THE TRANSMITTER SECTION, IT USES TH 
3A Pit INDOW 1O DETERMINE THAT I 
l 
N 


7; CORRECT 

szNOTE: DNA COMES UP ON THE FIRST R 
szEDGE OF THE NEXT CHARACTER IF NO 
3;LOADED INTO *XDBUF 

8° :SYNEXT 

s;PARITY:NO PARITY 

7LENGTH:SIX 


ee 
**@eeeeeeereeereeeetetereeeeeteeerteeeeeereneeeeeeeeteteteteeteese 


007002 000004 1113: SCOPE 


007004 052777 000400 172714 BIS MMRESET,@TXCSR ;MASTER RESET 
007012 012777 020000 172702 MOV @SYNEXT,@PARCSR ;SET THE MODE 
007020 052777 000450 172700 BIS MMRESET,@TXCSR ;MASTER RESET 


SET MAINTENANCE MODE & SEND 
;NOTE:BIT WINDOWRCLK ARE CLEARED (MTDATA=0) 
007026 012777 004020 172672 MOV #MINT! SEND, @TXCSR 


3 SET ang * OF BITS,PARITY SENSE,@ LOAD SYNC REG 


3s THIS TES 
N 
L 


ae et eee ee cee ee ee me INI) et et me IN ak a et ad a PUPP NINE BS at at at tt tt Os 


eee ee ee Te tet eleteteieleteteteletieiotaleteteateteleeeeneeeeeeeeeee ee ee 
we SS SS ewes 


007034 012777 022026 172660 #SYNEXT!SIX'NOPAR! 26, @PARCSR 
007642 016703 172660 MOV TXCSR,R3 :SET UP FOR ERROR MSG 
007046 112777 000021 172656 MOVB #21,aTXDBuUF [LOAD CHAR 
007054 012767 000021 172416 MOV #21.$TMP1 SSHIFTED CHAR 
007062 012767 000006 172032 MOV #6, SHIFT “# OF SHIFTS 
:POKE CLK TO GET INTO SYNCRONIZATION 
007070 052777 020000 172630 BIS CLK, aTXCSR :POKE CLK UP 
007076 042777 020000 172622 BIC @CLK,aTXCSR [POKE CLK DOWN 
007104 005000 1$: CLR RO 
007106 006067 172366 ROR $™MP1 FORCE CARRY 
007112 103002 BCC 2 
007114 052700 002000 - BIS #B1Tw,RO SEQUIV OF BIT WINDOW 
007120 052777 020000 172600 BIS #CLK,aTXCSR :POKE CLK UP 
007126 042777 020000 172572 BIC #CLKaTXCSR [POKE CLK DOWN 
007134 017701 172566 MOV aTxcSR,R TACTUAL 
007140 042701 075777 BIC #075777,R1 SSAVE BITW & DNA 
097144 020001 CMP RO.R1 ‘:COMPARE EXP VS ACT 
907146 001401 BEQ + 
007150 104003 ERROR 3 :BIT WINDOW DID NOT MATCH ACTUAL DATA 
‘BIT,....ALSO CHECK DNA 
007152 005367 171744 DEC SHIFT :# OF SHIFTS 
007156 001352 BNE [D0 IT AGAIN ? 
sNOW POKE CLK TO SEE DNA 

71 052777 020000 172540 BIS ack aTxCSR SPOKE CLK 
007166 012700 100000 MOV #100600,R0 TEXPECTED 
007172 017701 172530 MOV aTXCSR,R? ACTUA 
007176 042701 077777 BIC e77777, [SAVE DNA ONLY 
007202 020001 CMP RO,R1 | ; COMPARE EXPECTED VS ACTUAL 
007204 001401 BEO ¢ 
007206 104003 ERROR 3% sDNA SHOULD BE SET 
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(1) SIF DNA DID NOT SET ,CHECK WORD LENGTH 
(1) [SELECT LOGIC OF THE TRANSMITTER 
(1) 007210 005777 172512 TST @TXCSR :DNA ? 
(1) O07¢14 100001 BPL +4 
(1) 007216 104004 ERROR 4 :DNA SHOULD NOT BE SET 
(1) :1T SHOULD Wave BEEN CLEARED FROM 
(1) [PREVIOUS READ 

8162 s: THIS TEST VERIFYS WORD LENGTH SELECT OF 
(1) S:THE TRANSMITTER SECTION, IT USES THE DNA FLAG 
(1) SAND BIT WINDOW TO DETERMINE THAT IT WAS SELECTED 
(1) +: CORRECTLY 
(1) SINOTE: DNA COMES UP ON THE FIRST RISING BIT 
(1) SEDGE OF THE NEXT CHARACTER IF NO NEW CHARACTER IS 
(1)  s LOADED INTO T 
(1) 44 DE: SYNEXT 
(1) PARITY:NO PARITY 
He $LENGTH: SEVEN 
(5) MTT TTTITTTITTTITILTITILILTILLI LT 
4) 007220 000004 15114: SCOPE 
(3) 007222 052777 000400 172476 BIS #MRESET,aTXCSR MASTER RESET 
@) 007230 012777 020000 172464 MOV #SYNEXT.@PARCSR :SET THE MODE 
(3) 007236 052777 000400 172462 BIS @MRESET.aTXCSR :MASTER RESET 
(2) ;SET MAINTENANCE MODE & SEND 
(2) sNOTE:BIT WINDOWECLK ARE CLEARED (MTDATA=0) 
(2) 007244 012777 004020 172454 MOV #@MINT!SEND, aTXCSR 
(2) :SET MODE.# OF BITS. PARITY SENSE,& LOAD SYNC REG 
(2) 007252 012777 026026 172442 MOV #SYNEXT T SEVEN !NOPAR #26, @PARCSR 
(1) 007260 016703 172442 MOV TXCSR,R3 7SET B FOR ERROR MSG 
(1) 007264 112777 000021 172440 MOVB #21 oe txoBur SP OAD CHA 
(1) re? 012767 000021 172200 MOV ‘ 1$1 MP 1 ; SHIFTED CHAR 
(1) 007300 012767 000007 171614 MOV SHIFT OF SHIFT 
(1) :POKE CLK TO cet” INTO CYNCRONI ZATION 
(2) 607306 052777 020000 172412 BIS @CLK,@TXCSR :POKE CLK UP 
(2) 007314 042777 020000 172404 BIC #CLKaTXCSR :POKE CLK DOWN 
(1) 007322 905000 1$: CLR 
(1) 007524 006067 172150 ROR $TMP1 ;FORCE CARRY 
(1) 007330 103002 BCC 
(1) 09733¢ 052700 002000 - BIS #B1Tw,RO sEQUIV OF BIT WINDOW 
(2) inatts 052777 020000 172362 BIS #CLK,@TXCSR :POKE CLK UP 
(2) 007344 042777 00 00 172354 BIC stk aTxCSR [POKE CLK DOWN 
(1) 007352 017701 172350 MOV xC$R Ri ACTUAL 
(1) 007356 042701 075777 BIC as ae [SAVE BITW & DNA 
(1) 007362 020001 CMP RO,R1 RE OMPARE’ EXP VS ACT 
(1) 007364 001401 BEO ‘ 
(1) 007366 104003 ERROR 3 iBT WINDOW usb ent MATCH ACTUAL DATA 
(1) 007370 005367 171526 DEC SHIFT a of 
(1) 007376 001352 BNE 1$ D0 1 AGA ? 
(1) sNOW POKE CLK TO SEE DNA 
(1) 007376 052777 020000 172322 BIS @CLK,aTXCSR sPOKE CLK 


CNDUT=A MACY11 30(1046) 14=DEC-82 10:01 PAGE 61-33 
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(1) 007406 012700 199909 MOV #100000 RO SEXPECTED 
(1) 007410 017701 Me 1g MOV TXCSR R,RI SACTUAL 
(1) 007414 042701 07777 BIC ia 7,R1 :SAVE DNA ONL 
(1) 007420 020001 CMP RO,R1 | ; COMPARE * PAPECTED vs" ACTUAL 
(1) 007422 001401 BEQ +4 
(1) 007424 104003 ERROR 3 ;DNA SHOULD BE SET 
(1) F DNA DID NOT SET ,CHECK WORD LENGTH 
(1) i SELECT LOGIC OF THE TRANSMITTER 
(1) 007426 005777 172274 TST @TXCSR :ONA 
(1) 007432 100001 BPL +4 
(1) 007434 104004 ERROR & sDNA SHOULD NOT BE SET 
(1) s1T SHOULD HAVE BEEN CLEARED FROM 
(1) [PREVIOUS READ 

8165 si: THIS TEST VERIFYS WORD LENGTH SELECT oF 
(1) [:THE TRANSMITTER SECTION, IT USES THE DNA FLAG 
(1) HeORRECTLY oe TO DETERMINE THAT IT WAS SELECTED 
(1) Z3NOTE: DNA COMES UP ON THE FIRST RISING BIT , 
(1) sEDGE OF THE td an rn IF NO NEW CHARACTER IS 
(1) S:LOADED INTO TXDBUF 
(1) i SMODE : SYNEXT 
(1) s;PARITY:NO PARITY 
(1) ;SLENGTH:EIGHT 
(5) ss eeeeneeaneeeeeeeerererreeneerertennteneneereeieeeneererenereere 
4) 007436 000004 15115: SCOPE 
(3) 007440 052777 000400 172260 BIS #MRESET,@TXCSR ;MASTER RESET 
(2) 007446 012777 020000 172246 MOV MSYNEXT.@PARCSR :SET THE MODE 
(3) 007454 052777 000490 172244 BIS #MRESET.a@TXCSR :MASTER RESET 
(2) SET MAINTENANCE MODE & S 
(2) sNOTE:BIT WINDOWECLK ARE CLEARED ‘MTDATA=0) 
(2) 007462 012777 004020 172236 MOV #MINT!SEND, aTXCSR 
(2) sSET MODE.# OF BITS, PARITY SENSE,® LOAD SYNC REG 
(2) 007470 012777 026026 172224 MOV sy WE T EIGHT !NOPAR 26, @PARCSR 
(1) 7476 016703 172226 MOV R3 SET B FOR ERROR MSG 
(1) 007502 112777 000021 172222 MOVB agi. oF tROBUF LOAD. CHA 
(1) 007510 012767 000021 171762 MOV ‘ 1.8! MP a ist IF TED CHAR 
(1) 007516 012767 000010 171376 MOV HIFT OF SHIFTS 
(1) SPOKE CLK TO GET minto LNCRONI ZATION 
(2) 907524 052777 020000 172174 BIS #CLK,aTXCSR SPOKE CLK UP 
(2) 007532 042777 020000 172166 BIC acLK: “aTXcsR SPOKE CLK DOWN 
(1) 007540 005000 1$: CLR 
(1) 007542 006067 171732 ROR S TMP SFORCE CARRY 
(1) 007546 103002 Bcc 2 
(1) 007550 052700 002000 = BIS #B1Tw.RO sEQUIV OF BIT WINDOW 
(2) 007554 052777 020000 172146 BIS #CLK,aTXCSR SPOKE CLK UP 
(2) 007562 042777 0 909 172136 BIC acik aT XCSR ;POKE CLK DOWN 
(1) 007570 01 701 1 ¢! MOV arxcse a UAL 
(1) 007574 042701 07577 BIC #07577 ‘SAV — BITw & DNA 
(1) 007600 020001 CMP RO,R1 ott ompane’ ah vS ACI 
(1) 007602 001401 BEO my; 
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035 CNDUTA.M11 30-OCT-82 11:16 INITIALIZE THE COMMON TAGS SEQ 0048 
(1) 007604 104003 ERROR 3 :B1T WINDOW DID NOT MATCH ACTUAL DATA 
(1) [BIT,....ALSO CHECK DNA 
(1) 007606 005367 171310 DEC SHIFT :# OF SHIFTS 
(1) 007612 001352 BNE i$ [D0 IT AGAIN ? 
(1) yNOW POKE CLK TO SEE DNA 
(1) 007614 052777 020000 172104 BIS #CLK aTXCSR :POKE CLK 
(1) 007622 012700 100000 MOV #100600,R0 SEXPECTED 
(1) 007626 017701 172074 MOV aTxCSR,R1 S ACTUAL 
(1) 007632 042701 077777 BIC #77777_R1 ‘SAVE DNA ONLY 
(1) 007636 020001 CMP RO,R1 | ;COMPARE EXPECTED VS ACTUAL 
(1) 007640 001401 BEQ +4 
(1) 007642 104003 ERROR 3 ;DNA SHOULD BE SET 
(1) F DNA DID NOT SET ,CHECK WORD LENGTH 
(1) SELECT LOGIC OF THE TRANSMITTER 
(1) 007644 005777 172056 TST aTxcSR :D 
(1) 007650 100001 BPL +4 
(1) 007652 104004 ERROR & :DNA SHOULD NOT BE SET 
(1) :1T SHOULD ware BEEN CLEARED FROM 
(1) [PREVIOUS READ 
8164 s:THIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION 
1) TOF THE TRANSMITTER SECTION. 
(1) t:1T ALSO CHECKS DNA TIMING 
(1) + MODE: SYNINT 
(1) 3 SLENGTH:F IVE plus PARITY 
(1) sPARITY:EVEPA 
age 3; CHARACTER: ese 
(5) s eeeeneaeeeeeeeereeerereeeererereneeneneeneeentenreeeenereneeees 
(4) 007654 000004 TST16: SCOPE 
(3) 007656 052777 000400 172042 BIS WMRESET,@TXCSR ;MASTER RESET 
(2) 007664 012777 030000 172030 MOV #SYNINT.@PARCSR :SET THE MODE 
(3) 007672 052777 000400 172026 BIS WMRESET.a@TXCSR :MASTER RESET 
(2) ;SET MAINTENANCE MODE & SEND 
(2) NOTE:BIT WINDOWBCLK ARE CLEARED (MTDATA=0) 
(2) 007700 012777 004020 172020 ov #MINT' SEND, aTXCSR 
(2) sSET MODE,# OF BITS,PARITY SENSE.& LOAD SYNC REG 
(2) 007706 012777 031426 172006 MOV #SYWINT {FIVE !EVEPAR! 26, @PARCSR 
(1) 007714 016703 172006 MOV TXCSR,R3 SET B FOR ERROR MSG 
(1) 007720 112777 000025 172004 MOVB 425,afx0But :LOAD. DATA CHA 
(1) 907726 012767 000065 171544 MOV #65 $1 MP P} :T0 BE SHIFTED. CHAR 
(1) 007734 012767 000006 171160 MOV #6, SHIFT HIFTS 
(1) :POKE CLK TO GET INTO CF cmsntnaltel 
(2) 007742 052777 020000 171756 BIS #CLK,aTXCSR sPOKE CLK 
(2) 007750 042777 020000 171750 BIC #CLK.aTXCSR POKE cin NOUN 
(1) 007756 005000 1$: CLR R 
(1) 007760 006067 171514 ROR $TMP1 sEORCE CARRY 
(1) 007764 103002 BCC 2$ R IF CARRY CLR 
(1) 007766 052700 062000 - BIS #BITw,R °° sEQUIV OF BITW 
(2) 007772 052777 020000 171726 BIS #CLK,aTXCSR :POKE CLK UP 
(2) 010000 042777 020000 171720 BIC @CLKaTACSR SPOKE CLK DOWN 
(1) 010006 017701 171714 MOV atxcsR,R1 ACTUAL 
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036 CNDUTA.M11 30-OCT-82 11:16 INITIALIZE THE COMMON TAGS SEQ 0049 
010012 042701 075777 BIC #075777, R1 sSAVE BITW & DNA 
010016 Ose oot CMP 0,R1 “COMPARE EXP VS ACT 
919020 001401 BEO wai 
010022 104003 ERROR 3 BIT WINDOW 30° ¢hete ona ACTUAL DATA 
010024 005367 171072 DEC SHIFT 3a os SH 
010030 001352 BNE i$ :00 | AGAIN ? 
sNOW POKE CLK TO SEE DNA 
010032 052777 020000 171666 BIS #CLK,aTXCSR :POKE CLK 
010040 012700 100000 MOV #100600,R0 3EXPECTED 
0100464 017701 171656 MOV aTXCSR,RI * ACTUAL 
010050 042701 077777 BIC #77777_R1 SSAVE D 
010054 020901 CMP RO,R1 ‘OMPARE ere VS ACT 
010056 001401 BEQ vA 
010060 104003 ERROR 3 :0NA SHOULD BE SET 
SCHECK WORD LENGTH SELECT LOGIC 
8 ii THIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION 
° THE TRANSMITTER SECTION. 

Hi ALSO CHECKS DNA TIMING 

MODE: SYNINT 

T:LENGTH: FIVE PLUS PARITY 

:3:PARITY:ODDPAR 

: ECHARACTER: 25 

PPETTITISIIITIITIIIIII IIIT TTT iii iii ii titi it iii 

010062 000004 1$117: SCOPE 


010064 052777 000400 171634 BIS #MRESET,@TXCSR + RESET 
010072 012777 030000 171622 MOV #SYNINT @PARCSR ;SET THE MODE 
010100 052777 (000400 171620 BIS #MRESET,@TXCSR :MASTER RESET 


7 SET MAINTENANCE MODE & SEND 
NOTE :B WINDOWECLK ARE CLEARED (MTDATA=0) 


LL LL LL RL PP RL il ee ei, cel in, le LL Le ee ile 


mI tk ad ed I) tt et at SS APPIN NPIPINI NID ES BR Tt 0 at tt ot a Ot ot tt tt tt 
ee a er er et et ee et ee ee a a a a a a a a ee ee ee ee ee ee ee ee ee ee ee ee ee ee ae el a 


IT 
010106 012777 004020 171612 hov #MINT!SEND aTXCSR 

:SET MODE.# OF BITS,PARITY SENSE,@ LOAD SYNC REG 
010114 012777 031026 171600 MOV sy NIN NT EF IVE !ODDPAR! 26. @PARCSR 
010122 016703 171600 MOV R3 :SET B FOR ERROR MSG 
010126 112777 000025 171576 MOVB #35 af xOBUF :LOAD. DATA CHA 
010134 012767 000025 171336 MOV :T0 BE SHIFTED CHAR 
010142 012767 000006 170752 MOV #6,SHIFT S 

sPOKE CLK TO GET INTO at 
010150 052777 020000 171550 BIS #CLK,aTXCSR :POKE CLK UP 
010156 042777 020000 171542 BIC actK. *@TXCSR :POKE CLK DOWN 
010164 005000 1$: CLR 
010166 006067 171306 ROR $TMP1 i FORCE CARRY 
010172 103002 BCC R IF CARRY CLR 
O1017% 052700 002000 _ BIS #B1TW,RO’ sEQUIV OF BITW 
010200 052777 020000 171520 BIS #CLK,a@TXCSR ;POKE CLK UP 
010206 040777 920000 171512 BIC #clk aTxcSR SPOKE CLK DOWN 
010214 017701 171506 MOV arxcSh RI ZAC UAL 
010220 042701 075777 BIC #075777,R AVE BITW & DNA 
010224 020001 CMP RO,R1 OT ONPARE ‘ouP VS ACT 


CNDUT=A MACY11_30(1046) 14=DEC-82 10:01 PAGE 61-36 
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1 010226 001401 BEQ +6 
1) 010230 104003 ERROR 3 :BIT WINDOW DID NOT MATCH ACTUAL DATA 
1 010232 005367 170664 DEC SHIFT 8 OF 8h Fis pte 
O10286 001352 wow pore fsx toVSee guaide IT ACAIN 2 
010240 052777 020000 171460 ° BIS #CLK aTXCSR :POKE CLK 
010246 012700 100000 MOV #100600,R0 SEXPECTED 
010252 017701 171450 MOV aTXCSR,R1 ACTUAL 
010256 042701 077777 BIC #77777._R1 ?SAVE DNA ONLY 
010262 020001 CMP RO,R1 SCOMPARE EXP VS ACT 
010264 001401 BE + 
010266 104903 ERROR 3 ZONA SHOULD BE SET 


A DID NOT SET 
:CHECK WORD LENGTH SELECT LOGIC 


gs Tuts TEST VERIFYS CHARACTER PLUS PARITY GENERATION 
3::0F THE TRANSMITTER SECTION. 

itr ALSO CHECKS DNA TIMING 

:sMODE: ISYMOD 

Hy tp FIVE Ps sas PARITY 

3 sPARITY:EVEPA 

3 CHARACTER: 5S 


PITITITITITILILITILILT LTT LITT TTT TiTiTi Tite 


010270 000004 18120: SCOPE 


010272 052777 000400 171426 BIS #MRESET,@TXCSR :MASTER RESET 
010300 012777 000000 171414 MOV WISYMOD,@PARCSR ;SET THE MODE 
010506 052777 000400 171412 BIS WMRESET,@TXCSR ;MASTER RESET 


3SET MAINTENANCE MODE & SEND 
NOTE:BIT WINDOWBCLK ARE CLEARED (MTDATA=0) 


LLB LLL LLLP me my Oe elm, me Pm le le yy fe, in, cell in, fl, Gn, i, in, fl, ily fm, mm fm, i, fm, in, Pm in, 


Ok BIND at at dt et AI) at tt = PU PU NIPPON NINE BR at tt ot ot tO ot ot ot 
er ee ee a ee ee ee ee ee ee ee eee ee a a a 


010314 012777 004020 171404 MOV #MINT! SEND, aTXCSR 

SET MODE ait OF BITS. PARITY SENSE,& LOAD SYNC REG 
010322 012777 001426 171372 #1SY MOD iF IVE!EVEPAR# 26, @PARCSR 
010330 016703 Wri372 MOV TXCSR,R3 SE B FOR ERROR MSG 
010334 M2077 000025 171370 MOVB #03 ,01 afxbaur LOAD DATA CHAR 
010342 012767 000352 171130 MO a BE SHIFTED CHAR 
010350 012767 000010 170544 MOV #8. AFT OF SHIFTS 

sPOKE CLK TO GET INTO IF owtzaitod 
010356 052777 020000 171342 BIS #CLK,aTXCSR sPOKE CLK UP 
010364 042777 020000 171334 BIC acLK. *aTXxCSR SPOKE CLK DOWN 
010372 005000 1$: CLR 
010374 006067 171100 ROR STMP1 FORCE CARRY 
010400 103002 BCC :BR IF CARRY CLR 
91040¢ 052700 002000 a. BIS #B1Tw,RO SEQUIV OF BITW 
010406 052777 020000 171312 BIS #CLK,aTXCSR sPOKE CLK UP 
010414 040777 020 00 171304 BIC #CLK.aTXCSR ;POKE CLK DOWN 
010422 017701 17130 MOV atTxcsr RI UAL 
Q104¢6 042701 07577 BIC POrSTTE ER iSAVE BITW & DNA 
010432 020001 CMP RO,R1 RT ONPARE® axe vS ACT 
010434 001401 j ‘ BEQ of 
010436 104003 ERROR 3 :B1T WINDOW DID NOT MATCH ACTUAL DATA 


M 4 
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) :B1T at CHECK DNA 
) 010440 005367 170456 DEC SHIFT :# OF SHIFTS 
>» 010444 003385 BNE i$ °D0 IT AGAIN ? 
) ;NOW POKE CLK TO SEE nwa’ 
) 010446 052777 020000 171252 BIS HCl ATKCSR :POKE CLK 
) 010454 912700 000000 MOV £3.00 EXPECTED 
) 010460 91 701 Vege MOV aticsa al 3A 
) 010464 042701 07777 BIC #77777. ‘SAVE D 
» 010470 020001 CMP RO,R1 < OMPARE A ope VS ACT 
) 010472 001401 BEQ +4, 
) 010474 104003 ERROR 3 ;DNA SHOULD BE SET 
) F DNA DID NOT SET 
CHECK WORD LENGTH SELECT LOGIC 
8167 ssTHIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION 
S30F THE TRANSMITTER SECTION. 
[IT ALSO CHECKS DNA TIMING 
+ :MODE : 1SYMOD 
S:LENGTH:FIVE PLUS PARITY 
+ :PARITY:ODDPAR 
3s CHARACTER: 25 
TPT TTTTTTTITITITTTITITITILITITTITITITTITITIiiiiiiiiitiiiiiiiit 
010476 000004 18121: SCOPE 
010500 052777 090400 171220 BIS WMRESET,@TXCSR ;MASTER RESET 
010506 012777 000000 171206 MOV #ISYMOD.@PARCSR :SET THE MODE 
010514 052777 000400 171204 BIS #MRESET.aTXCSR :MASTER RESET 


:SET aaa ee 5 MODE & SEND 
NOTE:BIT WINDOWSCLK ARE CLEARED (MTDATA=0) 
010522 012777 004020 171176 hov #MINT! SEND ,@TXCSR 


;SET MODE,# OF BITS, PARITY SENSE ,& LOAD Hey o" 


PI at kt ot PR) SS PUNININININ NW ES SO et et ot ot EG to 2 


CLL LLB BBE BLE LLL LOL OOO Ol fl Pe Pm fm Pm Pm tm, fm, mel Gl, Pm, ly Oe fy Pm, my Pe Pm Pe OO le 
ee ee es ee a ee ee a ee a ee es 8 ee ee ee eS I YY wwe a 


010530 012777 001026 171164 MOV #1SYMOD DF IVE!ODDPAR!26, @PARC 
010536 016703 171164 MOV TXCSR,R3 B FOR SRROR MSG 
010542 112777 000025 171162 MOV #25 ,atXDBUF :LOap UAT A CHAR 
010550 012767 000252 170722 mov #252, S1MPt 0 BE SHIFTED CHAR 
010556 012767 000010 170336 SHIFT + S 
:POKE CUR to GET orate SYNCRONIZATION 
010564 052777 020000 171134 BIS #CLK,aTXCSR sPOKE CLK UP 
010572 042777 020000 171126 BIC #CLK.aTXCSR [POKE CLK DOWN 
010600 005000 1$: CLR R 
010602 006067 170672 ROR $TMP1  ;FORCE CARRY 
010606 103002 BCC $ :BR IF CARRY CLR 
010610 052700 002000 i BIS #BITW.RO sEQUIV OF BITW 
010614 052777 020000 171104 BIS #CLK,aTXCSR sPOKE CLK UP 
010622 062777 020000 171076 BIC #cLkK aTXCSR SPOKE CLK DOWN 
1) 010630 017701 Wire MOV atx XCSR,RI SACTUAL 
1) 010634 042701 07577 BIC #075777,R E BITw & DNA 
1) 010640 020001 CMP RO,R1 RT OMPARE’ eNPe vS ACT 
1) 010642 001401 BEQ + 
1 010644 104003 ERROR 3 BIT WINDOW DID NOT MATCH ACTUAL DATA 
1) 010646 005367 170250 DEC SHIFT :# OF SHIFTS 


N 4 
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010652 001352 ae pone” fue ro! "See ioe 300 IT AGAIN ? 
010654 052777 020000 171044 BIS aTXCSR :POKE CLK 
010662 012700 000000 MOV ; Le6 
010666 017701 171034 MOV arxcse, Ri 
010672 042701 077777 BIC #77777,R1 {SAVE DNA 0 
010676 020001 CMP RO,R1 * COMPARE EXP VS ACT 
; 010700 001401 BEQ + 
010702 104003 ERROR 3 :DNA SHOULD B BE SET 


D NOT SET 
:CHECK WORD LENGTH SELECT LOGIC 


ee ee ee Tt tt te te tele lle ete eleleleteteieeleedeteteteteteteeles see eee eee 


ss THIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION 
33;0F THE TRANSMITTER SECTION. 

3:17 ALSO CHECKS DNA TIMING 

3 MODE: SYNINT 

;sLENGTH:SIX es PARITY 

3 ;PARITY:EVEPA 

+ CHARACTER: 5S 


WITTTTTITITITITITILTILILITLILLI LiL keaee 


010704 000004 1$122: SCOPE 


010706 052777 000400 171012 BIS #MRESET,@TXCSR ;MASTER RESET 
010714 012777 030000 171000 MOV #SYNINT,@PARCSR ;SET THE MODE 
010722 052777 000400 170776 BIS WMRESET.@TXCSR ;MASTER RESET 


;SET MAINTENANCE MODE & SEND 
;NOTE:BIT WINDOWSCLK ARE CLEARED (MTDATA=0) 


eee wes ee es we we we we Oe we we ee ea 


POMONINONINUNU WUE BU et ot 2 OO tt SS 


010730 012777 004020 170770 MOV #MINT! SEND, aTXCSR 
7SET MODE .# OF BITS,PARITY SENSE,& LOAD SYNC REG 

) 010736 012777 033426 170756 MOV asi YNINT!SIX!EVEPAR! 26, aPAR CSR 
1) 010744 016703 170756 MOV TXCSR,R3 ;SET UP FOR ERROR MSG 
1) 010750 112777 900025 170754 MOVB #25 atxdBuF 3LOAD DATA CHAR 
1) 010756 012767 000125 170514 MOV #125, simp 1 :TO BE SHIFTED CHAR 
1) 010764 012767 000007 170130 MOV #7, SHIFT TS 

1) sPOKE CLK TO GET INTO SYNCRONIZATION 
2) 010772 052777 020000 170726 BIS #CLK,aTXCSR :POKE CLK UP 
2) 011000 042777 020000 170720 BIC #CLK.aTXCSR SPOKE CLK DOWN 

1) 011006 005000 1$: CLR 
1) 011010 006067 170464 ROR $TMP1 : FORCE CARRY 

1) 011014 102002 BCC R IF CARRY CLR 

» 011016 052700 002000 - BIS #B1Tw, RO’ sEQUIV OF BITW 
2) 011022 052777 020000 170676 BIS #CLK,aTXCSR :POKE CLK UP 
2) 011030 042777 020000 170670 BIC #cLk ATXCSR :POKE CLK DOWN 

1) 011036 017701 170664 MOV aTxcsr S ACTUAL 

1) 011042 042701 075777 BIC aosTie hy :SAVE BITW & DNA 

1) 011046 020001 CMP RO.R1 ‘COMPARE EXP VS ACT 

1) 011050 001401 BEOQ +4 

) 011052 104003 ERROR 3 :BIT wenabae Chet OMA ACTUAL DATA 
1) 011054 005367 170042 DEC SHIFT tf of § 

1) 011060 001352 BNE 1$ :D0 IT tat ? 


B 5 
CNDUT“A_MACY11_30(1046) 14-DEC=82 10:01 PAGE 61-39 
0 CNDUTA.M11 soco-a2 11:16 INITIALIZE THE COMMON TAGS ; SEQ 0053 


020000 170636 CLK ,a@TXCSR :POKE CLK 
1000 8 MOV #100600 3 TEXPECTED 
1 $ $ MOV aTxcsR Rt SACTUAL 
07 #77777._R1 SSAVE DNA ONLY 
CMP RO,R1 SCOMPARE EXP VS ACT 
+ 
3 


;DNA SHOULD BE SET 
:1F DNA DID NOT SET 
;CHECK WORD LENGTH SELECT LOGIC 


s; THIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION 
s:O0F THE TRANSMITTER SECTION. 

3317 ALSO CHECKS DNA TIMING 

3 MODE: SYNINT 

s:LENGTH:SIX PLUS PARITY 

3s ;PARITY:ODDPAR 

7; CHARACTER: 25 


ee 
RARER ARHRAAAEHAAAAAHAAAERERERAHAAARHARKeReKeReeHeaaeeeeneneeee 


11112 000004 1123: SCOPE 
11114 052777 000400 170604 BIS WMRESET,@TXCSR ;MASTER RESET 
11122 012777 030000 170572 MOV #SYNINT.@PARCSR :SET THE MODE 
11130 052777 000400 170570 BIS #MRESET.aTXCSR :MASTER RESET 
;SET MAINTENANCE MODE & SEND 
sNOTE:BIT WINDOWBCLK ARE CLEARED (MTDATA=0) 
011136 012777 004020 170562 MOV #MINT!SEND,@TXCSR 


:SET wong OF OTs oaatty SENSE,& LOAD SYNC REG 


ee ee et te el eet eteteteteteelatetetee eee eee eee ee 
ee ee ae ee me NIN) ad a dd IT at at FPN UIE Bt I Ot tt oo oo 
ee ee SS ee Se Oo 


011144 012777 033026 170550 SYNINT!SIX!ODDPAR! 26, a@PARCSR 
011152 016703 170550 MOV TXCSR,R 3SET UP FOR ERROR MSG 
011156 112777 000025 170546 MOVB  #25,aTXOBUF ‘LOAD DATA CHAR 
011164 012767 000025 170306 MOV #25.STMP1 :T0 BE SHIFTED CHAR 
011172 012767 000007 167722 MOV #7,SHIFT :# OF SHIFTS 

sPOKE CLK TO GET INTO SYNCRONIZATION 
011200 052777 020000 170520 BIS #CLK,a@TXCSR sPOKE CLK UP 
011206 042777 020000 170512 BIC #CLK.aTXCSR SPOKE CLK DOWN 
011214 005000 1$: CLR 
011216 006067 170256 ROR $TMP1 ;FORCE CARRY 
011222 103002 BCC 7BR IF CARRY CLR 
211585 052700 002000 ‘ BIS #B1TwW,RO sEQUIV OF BITW 
b115 0 052777 020000 17047 BIS #CLK,aTXCSR :POKE CLK UP 
011236 042777 920000 17046 BIC #CLK.aTXCSR SPOKE CLK DOWN 
011244 017701 170456 MOV arnt R,R1 sACTUAL 
011250 042701 075777 BIC #075777,R1 [SAVE BITW & DNA 
011254 020001 CMP RO,R1 ‘;COMPARE EXP VS ACT 
011256 001401 BEQ +4 
011260 104003 ERROR 3 :BIT WINDOW DID NOT MATCH ACTUAL DATA 

[BIT,...ALSO CHECK DNA 

011262 005367 167634 DEC SHIFT :# OF SHIFTS 
011266 001352 BNE 1$ [D0 IT AGAIN ? 

sNOW POKE CLK TO SEE DNA 
011270 052777 020000 170430 BIS #CLK,aTXCSR SPOKE CLK 


CNDUT=A MACY, 0(104 ) 14=DEC-B2 10:01 PAGE 61-40 
CNDUTA.M11 2 11:16 INITIALIZE THE COMMON TAGS SEQ 0054 
011 “ 12700 199090 MOV #100000 RO sEXPECTED 
git 02 017701 1 9420 MOV aie R,RI * ACTUAL 
1 06 42701 0777 BIC ay 7-R1 SSAVE DNA ONL 
011312 020001 CMP RO,R : COMPARE EXP. vs ACT 
011314 001401 BEQ + 
011316 104003 ERROR 3 :DNA SHOULD 8 BE SE! 


CHECK WORD LENGTH SELECT LOGIC 


8 33 THIS TEST VERIFYS rion. PLUS PARITY GENERATION 
F THE TRANSMITTER SECTI 
IT ALSO a a DNA TIMIN Q 
MODE: ISYM 


0D 
Hteein SIX aus PARITY 
sPARITY:EVEPA 

3s CHARACTER: 5S" 


WUTTTITITITITITITITILITITTL LLL Li i i 


1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

171 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(3) 

(4) 011320 000004 $124: SCOPE 

(3) 011322 052777 000400 170376 BIS #MRESET,@TXCSR ;MASTER RESET 
(2) 011330 012777 000000 170364 MOV #ISYMOD.@PARCSR :SET THE MODE 
(3) 011336 052777 000400 170362 BIS WMRESET.@TXCSR :MASTER RESET 
(2) :SET MAINTENANCE MODE & SEND 

(2) :NOTE:B1T WINDOWGCLK ARE CLEARED (MTDATA=0) 
(2) 011344 012777 004020 170354 MOV #MINT!SEND,a@TXCSR 

(2) :SET MODE,# OF BITS, PARITY SENSE .& LOAD SYNC REG 
(2) 011352 012777 003426 170342 MOV #ISYMOD'SIX'EVEPAR! 26, @PARCSR 

(1) 011360 016703 170342 MOV TXCSR,R3 :SET UP FOR ERROR MSG 
(1) 011364 112777 90002 170340 MOVB #25, aTXDBUF 3LOAD DATA CHA 

(1) 011372 012767 000652 170100 mov #652 STHPI i10 oot RNTESED. CHAR 
(1) 011400 012767 000011 167514 SHIFTS 

(1) sPOKE un Yo GET water LNCRONIZATION 

(2) 011406 052777 020000 170312 BIS #CLK,aTXCSR sPOKE CLK 

(2) 0114614 042777 020000 170304 BIC #CLK a@TXCSR SPOKE CLK NOUN 
(1) 011422 005000 1$: CLR 

(1) O11424 006067 170050 ROR STMP1 = FORCE CARRY 

(1) 011430 103002 BCC $ R IF CARRY CLR 

(1) O11432 052700 002000 - BIS #B1TW.RO’ sEQUIV OF BITW 
(2) 0114636 052777 020000 170262 BIS #CLK,a@TXCSR :POKE CLK UP 

(2) 9114446 oue777 0 9900 170254 BIC aCLK.aTXCSR SPOKE CLK DOWN 
(1) 011452 017701 9250 MOV arxcSR aR Ri SACTUAL 

(1) 011456 042701 0759 BIC #075777,R : SAVE Bi Tw & DNA 
(1) 011462 020001 CMP RO,R1 RT OMPARE® EXP VS ACT 

(1) 011464 001401 BEQ ¢ 

(1) 011460 104003 ERROR 3 BIT seuaoso nek DNA ACTUAL DATA 
(1) 011470 005367 167426 DEC SHIFT :# OF § 

(1) 011474 001352 BNE 1$ :D0 IT Mel ? 

(1) sNOW POKE CLK TO SEE DNA 

(1) 011476 052777 020000 170222 BIS #CLK,aTXCSR :POKE CLK 

(1) 011504 012700 000000 MOV #O,.RO EXPECTED 

(1) 011510 017701 170212 MOV aTxcSR,Ri s ACTUAL 


CNDUT=A MACY11 301046) 14=DEC-82 10:01 PAGE 61-41 
CNDUTA.M11 30-OCT-82 11:16 INITIALIZE THE COMMON TAGS SEQ 0055 
(1) 0115146 042701 077777 BIC #77777,R1 :SAVE DNA ONLY 
(1) O11) 0 020001 CMP RO,R1 SCOMPARE EXP VS ACT 
(1) 011522 001401 BEO + 
(1) 011524 104003 ERROR 3 sDNA SHOULD BE SET 
(1) SIF DNA DID NOT SET 
(1) SCHECK WORD LENGTH SELECT LOGIC 
8172 s;THIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION 
(1) S:0F THE TRANSMITTER SECTION. 
(1) t:1T ALSO CHECKS DNA TIMING 
(1) 3;MODE: I1SYMOD 
(1) ssLENGTH:SIX PLUS PARITY 
(1) 3 ;PARITY:ODDPAR 
$38 3; CHARACTER: 25 
(5) PETIT 
(4) 011526 000004 1§125: SCOPE 
(3) 011530 052777 000400 170170 BIS MMRESET,@TXCSR ;MASTER RESET 
2) 011536 012777 000000 170156 MOV #ISYMOD.@PARCSR :SET THE MODE 
(3) 011544 052777 000400 170154 BIS MMRESET.@TXCSR :MASTER RESET 
(2) ;SET MAINTENANCE MODE & SEND 
(2) :NOTE:BIT WINDOWRCLK ARE CLEARED (MTDATA=0) 
(2) 011552 012777 004020 170146 MOV @MINT!SEND, aTXCSR 
(2) :SET MODE.# OF BITS,PARITY SENSE,& LOAD SYNC REG 
(2) 011560 012777 003026 170134 MOV #ISYMOD'SIX!ODDPAR! 26, a@PARCSR 
(1) 011566 016703 170134 MOV TXCSR,R3 :SET UP FOR ERROR MSG 
(1) 011572 112777 000025 170132 MOVB «#25, at XOBUF ‘LOAD DATA CHAR 
(1) 011600 012767 000652 167672 MOV #452, $TMP1 [TO BE SHIFTED CHAR 
(1) 011606 012767 000011 167306 MOV #9., SHIFT “#0 FTS 
(1) sPOKE CLK TO GET INTO SYNCRONIZATION 
(2) 011614 052777 020000 170104 BIS #CLK,aTXCSR sPOKE CLK UP 
(2) 011622 042777 020000 170076 BIC #CLK,aTXCSR :POKE CLK DOWN 
(1) 011630 005000 1$: CLR 
(1) 011632 006067 167642 ROR $TMP1 ;FORCE CARRY 
(1) 011636 103002 BCC $ 7BR IF CARRY CLR 
(1) 011640 052700 002000 - BIS #B1Tw,RO sEQUIV OF BITW 
(2) 011664 052777 020000 170054 BIS #CLK,@TXCSR sPOKE CLK UP 
(2) 011652 042777 020000 170046 BIC #CLK.aTXCSR ;POKE CLK DOWN 
(1) 011660 017701 17004 MOV atxcgR R SAC; UAL 
(1) 911664 042701 07577 BIC #075777, R1 [SAVC BITW & DNA 
(1) 011670 020001 CMP RO,R1 ‘sCOMPARE EXP VS ACT 
(1) 011672 001401 BEO ry A 
(1) 011674 104003 ERROR 3 :BIT WINDOW DIf NOT MATCH ACTUAL DATA 
(1) sBIT,...ALSO CHECK DNA 
(1) 011676 005367 167220 DEC SHIFT :@ OF SHIFTS 
(1) 011702 001352 BNE ‘ [D0 IT AGAIN ? 
(1) . sNOW POKE CLK TO SEE DNA 
(1) 011706 052777 020000 170014 B15 #CLK,aTXCSR :POKE CLK 
(1) 911712 912700 000000 MOV #0,RO  - EXPECTED 
(1) O11718 91 701 170004 MOV atecsr. Ri s ACTUAL 
(1) 011722 042701 077777 BIC e77777._R1 [SAVE DNA ONLY 
(1) 011726 020001 CMP RO,R1 [COMPARE EXP VS ACT 


—e 5 


CNDUT<A MACY11 301046) 14=DEC=82 10:01 PAGE 61-42 
43 CNDUTA.M11 30-OCT-82 11:16 INITIALIZE THE COMMON TAGS SEQ 0056 
(1) 011730 001401 BEQ +6 
(1) 011732 104003 ERROR 3 sDNA SHOULD BE SET 
(1) :1f DNA DID NOT SET 
(1) ‘CHECK WORD LENGTH SELECT LOGIC 
gee 
8175 s;THIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION 
(1) SOF THE TRANSMITTER SECTION. 
(1) S:1T ALSO CHECKS DNA TIMING 
(1) 3s :MODE:SYNINT 
(1) SZ LENGTH:SEVEN PLUS PARITY 
(1) s;PARITY:EVEPAR 
41? 3; CHARACTER: 125 
(5) PTT TTTTTTITITITTTITITITITITITITITITITiITTiiLiLiiiiiiiiiiiiiii. 
4) 011734 000004 18126: SCOPE 
(3) 011736 052777 000600 167762 BIS #MRESET,@TXCSR ;MASTER RESET 
(2) 011744 012777 030000 167750 MOV @SYNINT.@PARCSR :SET THE MODE 
(3) 911752 052777 000400 167746 BIS #MRESET.aTXCSR :MASTER RESET 
(2) :SET MAINTENANCE MODE & SEND 
(2) sNOTE:B1T WINDOWBCLK ARE CLEARED (MTDATA=0) 
(2) 011760 012777 004020 167740 MOV #MINT! SEND, aTXCSR 
(2) ;SET MODE,# OF BITS,PARITY SENSE,& LOAD SYNC REG 
(2) 011766 012777 035426 167726 MOV #SYNINT !SEVEN'EVEPAR ! 26, aPARCSR 
(1) 011774 016703 167726 MOV TXCSR,R3 ;SET UP FOR ERROR MSG 
(1) 012000 112777 000125 167724 MOVB #125, aTXDBUF [LOAD DATA CHAR 
(1) 012006 012767 000125 167464 MOV #125°STMP1 :TO0 BE SHIFTED CHAR 
(1) 012014 012767 000010 167100 MOV #8. SHIFT “# OF SHIFTS 
(1) sPOKE CLK TO GET INTO SYNCRONIZATION 
(2) 012022 052777 020000 167676 BIS #CLK,aTXCSR sPOKE CLK UP 
(2) 012030 042777 020000 167670 BIC #CLK.aTXCSR SPOKE CLK DOWN 
(1) 012036 005000 1$: CLR R 
(1) 012040 006067 167434 ROR $TMP1  ;FORCE CARRY 
(1) 012044 103002 BCC 2$ 7BR IF CARRY CLR 
(1) 012066 052700 002000 - BIS #B1TW,RO sEQUIV OF BITW 
(2) 012052 052777 020000 167646 BIS #CLK,aTXCSR ;POKE CLK UP 
(2) 012060 042777 020000 167640 BIC #CLK aTXCSR [POKE CLK DOWN 
(1) 012066 017701 167634 MOV aTxcsR_Ri SACTUAL 
(1) 91207¢ 042701 075777 BIC #075777,R1 [SAVE BITW & DNA 
(1) 012076 020001 CMP RO,R1 ‘COMPARE EXP VS ACT 
(1) 912100 001401 BEQ re A 
(1) 012102 104003 ERROR 3 sBIT WINDOW DID NOT MATCH ACTUAL DATA 
(1) *BIT,...ALSO CHECK DNA 
(1) 012104 005367 167012 DEC SHIFT  :# OF SHIFTS 
(1) 012110 001352 BNE 1$ [DO IT AGAIN ? 
(1) ;NOW POKE CLK TO SEE DNA 
(1) 012112 052777 020000 167606 BIS #CLK aTXCSR SPOKE CLK 
(1) 012120 012700 100000 MOV #100600,R0 TEXPECTED 
(1) 012124 017701 167576 MOV atxcse I ACTUAL 
(1) 012130 042701 077777 BIC a77777.R1 [SAVE DNA ONLY 
(1) 012134 020001 CMP RO,R1 sCOMPARE EXP VS ACT 


CNDUT=A MACY11 30(1046) 14-DEC~82 10:01 PAGE 61-43 
bt CNDUTA.M11 30-OCT-82 11 INITIALIZE THE COMMON TAGS SEQ 0057 
(1) 012136 001401 BEQ +4 
(1) 012140 104003 ERROR 3 sDNA SHOULD BE SET 
(1) [IF DNA DID NOT SET 
(1) [CHECK WORD LENGTH SELECT LOGIC 
8176 riTHIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION 
(1) 3;;0F THE TRANSMITTER SECTION. 
(1) se 1T ALSO CHECKS DNA TIMING 
(1) iE LENGTH: SEVEN. PLUS PARITY 
(1) s3PARITY:ODDP 
1? CHARACTER: 138 
(5) PT TITTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT 
(4) 012142 000004 +§127: SCOPE 
(3) 012144 052777 000400 167554 81S MMRESET,@TXCSR ;MASTER RESET 
(2) 012152 012777 030000 167542 MOV #SYNINT.@PARCSR :SET THE MODE 
(3) 012160 052777 000400 167540 BIS MMRESET.@TXCSR :MASTER RESE! 
(2) :SET MAINTENANCE MODE & S 
(2) OTE:BIT tee tied ARE _ names (MTDATA=0) 
(2) 012166 012777 004020 167532 hov #MINT' SEND, aTXCSR 
(2) :SET MODE PY OF BITS. PARITY SENSE,& LOAD SYNC REG 
(2) 012174 012777 035026 167520 YNINT!SEVEN! ODDPAR ! 26, @PARCSR 
(1) 012202 016703 167520 mOV + KCSR,R3 sSET UP FOR ERROR MSG 
(1) 012206 112777 000125 167516 MOVB = #125, a1 xDBUF SLOAD DATA CHAR 
(1) 012214 012767 000325 167256 MOV #325 $1 MP1 310 BE SHIFTED CHAR 
(1) 012222 012767 000010 166672 MOV #8. SHIFT OF SHIFTS 
(1) :POKE CLK TO GET info SYNCRONIZATION 
(2) 012230 052777 020000 167470 BIS #CLK,aTXCSR sPOKE CLK UP 
(2) 012236 042777 020000 167462 BIC #CLK.aTXCSR SPOKE CLK DOWN 
(1) 012244 005000 1$: CLR RO 
(1) 012246 006067 167226 ROR STMP1 + FORCE CARRY 
(1) 012252 103002 BCC R IF CARRY CLR 
(1) 012254 052700 002000 1“ BIS #B1Tw.RO’ sEQUIV OF BITW 
(2) 012260 052777 020000 167440 BIS #CLK,@TXCSR :POKE CLK UP 
(2) 012266 042777 020000 167432 BIC #CLK aTxcsR SPOKE CLK DOWN 
(1) 012274 017701 167426 MOV c§R Ri zAC TUAL 
(1) 012300 042701 075777 BIC eorsTe ae — BITW & DNA 
(1) 012306 020001 CMP RO,R1 RF OMPARE® 4 VS ACI 
(1) 912306 001401 BEQ of 
(1) 012310 104003 ERROR 3 sBIT WINDOW DID NOT MATCH ACTUAL DATA 
(1) : .++ALSO CHECK DNA 
(1) 012312 005367 166604 DEC SHIFT :# OF SHIFTS 
(1) 012316 001352 BNE 1$ [D0 IT AGAIN ? 
(1) sNOW POKE CLK TO SEE DNA 
(1) 012320 052777 020000 167400 BIS LK,aTXCSR ZPOKE CLK 
(1) 012326 912700 100000 MOV #100600, 0 ZEXPECTED 
(1) 012332 017701 167370 MOV aTxcCSR,R1 SACTUAL 
(1) 012336 042701 077777 IC #77777.R1 [SAVE DNA ONL 
(1) 012342 020001 CMP RO,R1 : COMPARE EXP. VS ACT 
(1) 0123446 001401 BEO ¢ 
(1) 012346 104003 ERROR 3 ;DNA SHOULD BE SET 


CNDUT“A MACY11_ 30(1046) yea pec=se 10:01 PAGE 61- 
45 CNDUTA.M11 30-OCT-82 11 INITIALIZE The COMMON TAGS SEQ 0058 


(1) s1f DNA DID NOT SET 
43 *CHECK WORD LENGTH SELECT LOGIC 
8177 
8178 
(2) SEND OF PASS 
(2) [TYPE NAME OF Test 
(2) [UPDATE PASS COU 
(2) [CHECK FOR Exit ND ACT<11 
(2) SRESTART TEST 
(2) 012350 000004 .EOP: SCOPE 
(2) 012352 004767 000340 JSR PC, CKSWR 
(2) 012356 104401 TYPE ;TYPE NAME OF TEST 
(2) 012360 015506 MEPASS 
(2) 012362 104413 012614 CONVRT ,OUTCRY 
(2) 012366 104401 015325 YPE “DEVICE 
(2) 012372 105767 166554 TSTB  MULTD  ;ARE YOU RUNNING MULTIPLE DEVICES ? 
(2) 012376 061511 BEQ ce [NO, JUMP AROU 
(2) 012400 005767 166562 TST ACTREG :ARE ANY DEVICES ACTIVE ? 
(2) 012604 001007 BNE RUNIT YES 
(2) 012606 104401 015337 TYPE .MCOW ON 
(2) 012412 016700 166550 MOV ACTREG,RO -DISPLAY ACTREG 
(2) 012416 000000 HALT sSELECT SOMETHING TO RUN @ ACTREG: 
(2) sSELELT SWITCHES @ HIT CONTINUE (PUT SWOO =1 
(2) 0124620 000167 167526 j .START ;START OVER AGAIN......YOU DESELECTED EVERYTHING 
(2) 0194¢4 062767 000010 166522 RUNIT: ADD #10, BASEADD sNEXT BLOCK (ADDRESSES 
(2) 012432 062767 000010 166522 ZERO: ADD #10. BASELV [NEXT BLOCK (VECTORS) 
(2) 012440 000241 CLC 
(2) 012642 006167 166522 ROL ROTADD ;UP DATE ROTATING POINTER 
(2) 012646 103410 BCS 2$ [1S IT THE LAST DEVICE 
(2) :T0 BE TEST ED IN THIS PASS 
(2) 012650 036767 166514 166510 BIT ROTADD,ACTREG ;TEST THIS DEVICE FOR ACTIVE STATUS 
(2) 012656 00176 BEQ RUNIT  ;IF NOT ACTIVE, TRY NEXT ADDRESS 
(2) 012460 00476 000034 JSR PC,REPLAY :CALCULATE NEW PARAMETERS 
(2) 012464 000167 000210 MP RESTRT. YES IT WAS ACTIVE,TEST THIS DEVICE 
(2) 012470 012767 000001 166472 2%: MOV #1,ROTADD :0K!,NOW SET UP ROTATING 
(2) POINTER FOR NEXT MULTIPLE PASS 
(2) 012676 016767 166454 166450 MOV KEEPADD, BASEADD' ;RESTORE BASE ADDRESS 
(2) 012504 016767 166454 166450 MOV KEEPIV, BASE IV :RESTO ORE BASE INTERRUPT VECTORS 
(2) 012512 006767 000002 JSR PC,REPLA ALC NEW PARAME ERS 
(2) 012516 000441 BR cce JUMP AROUND REPL 
(2) 012520 016767 166430 004416 REPLAY: MOV BASE ADD, june 7SET UP tOR NEW ADDRESSES 
(3) 912596 04767 004260 JSR UAD [CREATE NEW ADDRESSES 
(2) 0125 16767 166424 167176 MOV BASE TY DU RIV: CREATE DURIV 
(2) 012540 062767 000002 166414 ADD #2,BAS "y 
(2) 012546 016767 166410 167164 MOV BASEIV,DURIS | ;CREATE DURIS 
(2) 012554 062767 000002 16640 ADD #2,BASELV 
(2) 012562 016767 166374 16715 MOV BASEIV,DUTIV ;CREATE DUTIV 
(2) 012570 062767 900002 166 364 ADD #2,BASELV 
(2) 012576 016767 166360 167140 MOV BASEIV,DUTIS  ;CREATE DUTIS 
(2) 012606 016767 167126 166350 MOV DURIV,BASELV  :RESTORE 
(2) 012612 000207 RTS PC 
(2) 012614 000001 OUTCRY: 1 
(2) 012616 006 002 .BYTE 6,2 
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CNDUTA.M11 30-OCT-82 11:16 INITIALIZE THE COMMON TAGS SEQ 0059 
c 012620 001712 RXCSR 
(2) 0126 g CCC: 
(2) Olee2e 005067 166554 CLR $TSTNM :CLEAR TEST NUMBER 
(2) 012626 005067 166564 CLR SERRPC [CLEAR LAST ERROR PC 
(2) 012632 005067 166545 CLR SERFLG [CLEAR ERROR FLAG 
(2) 0126 005267 166250 INC PASCNT [UPDATE PASS COUNT 
(2) 012642 016767 166244 164232 MOV PASCNT, LIGHTS [DISPLAY PASS COUNT 
(2) 01265 019767 166236 166656 MOV earha $PASS sPASS COUNT TO APT 
(2) 012656 013701 000042 MOV aes2, Ri "CHECK FOR ACT=11 OR DDP 
(2) 012662 001406 BEO RESTRT sf NO CONTINUE TESTING 
(2) 012664 90000 RESET 
(2) 012666 000905 RESET 
(2) 01 679 004711 SENDAD: JSR PC, (RI) 
(2) 012672 000240 NOP 
(2) 0126746 900240 nOP 
(2) 012676 000240 NOP 
(2) 012700 RESTRI: 
(2) 012700 012767 003376 166500 MOV #1ST1¢2,$LPADR ;:LOAD LAST ADDR 
(2) 012706 006767 000004 JSR PC, CKSWR 
(2) 012712 000167 170372 MP BEG! 
(2) SCHECK SWITCH REGISTER ROUTINE. 
(2) sCHECKS TO ALLOW FOR <*G> TO ALLOW 
(3) [THE CHANGING OF LOCATION 176 
(2) 012716 005737 000042 CKSWR: TST aes2 
(2) 012722 001040 BNE Out 
(2) 012726 022767 000176 166506 CMP @SWREG, SWR ;SOFTWARE SWR PRESENT? 
(2) 012732 001034 BNE OuT :NC="LEAVE 
(2) 012734 105777 166594 1TSTB 3s @STKS [CHECK TTY READY 
(2) 012740 100031 BPL Out [NO=-LEAVE 
(2) 012742 017767 166500 000422 MOV a$TkB,.MSG [GET CHARACTER 
(2) 012750 042767 177600 000414 BIC #177600,.MSG § :STRIP JUNK 
(2) 012756 122767 000007 000406 (MPR sé#7, . MSG [1S IT <*G> ? 
(2) 012764 001017 BNE Ou NO 
(2) 012766 104401 016113 TYPE MCNTG 
(2) 012772 005137 01303¢ CNTLU: COM aaRrdSw 
(2) 01¢776 104401 01612 TYPE .MMSWR 
(2) 013002 104413 CONVRT 
(2) 013004 013034 SWREGL 
(2) 013006 104406 016134 INSTR, MMNEW 
3) SHIRE sees om 
(3) 81 st6 1 909 177777 
(2) 013020 000176 SWREG 
(2) 013022 000 001 .BYTE 0,1 
(2) 0150¢4 005037 013032 dul: CLR aeRDSw 
(2) 013030 000207 RTS PC 
(2) 01303e 000000 RDSW: .WORD 0 
(2) 013034 000001 SWREGL: 1 
(2) 013036 006 002 .BYTE 6,2 
(2) 013040 000176 SWREG 
Ht 013042 000005 5 
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: ; :CHECK FOR FREEZE ON CURRENT DATA 

(2) 0130464 004767 177646 .SCOP1: JSR PC, CKSWR 

(2) 013050 032777 001000 166362 BIT #5w09,aSwR 

(2) 013056 001402 BEQ 1 

(2) 013060 016716 166024 MOV LOCK, (SP) 

(2) 013064 000002 1$: RT 

.SBTTL TYPE ROUTINE 

< sp eteeereenrerererererecerrerererererrerenaeararereaneneesereresese 

(2) S*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 

(2) [*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 

(2) > *NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 

(2) :*NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

i$} S*NOTE 3: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
*@ 

(2) S*CALL: 

(2) t*1) USING A TRAP INSTRUCTION 

(2) i 8g TYPE »MESADR s:MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
;* 

(2) 3* TYPE 

(2) 3 MESADR 

(3) " 

) 

(2) 013066 105767 166365 $TYPE: TSTB STPFLG tr1S THERE A TERMINAL? 

(2) 013072 100002 BPL 1$ 7;BR IF YES 

(2) 013074 000000 HALT SSHALT HERE IF NO TERMINAL 

(2) 013076 000430 BR 3$ $3 VE 

(2) 013100 010046 1$: MOV RO,-(SP) 77 SAVE R 

(2) 013102 017600 000002 MOV a2(SP),RO ::GET ADDRESS OF ASCIZ STRING 

(2) 013106 122767 000091 166432 CMPB #APTENV,SENV ‘RUNNING IN APT MOD 

(2) 013114 001011 BNE 62$ t:NO,GO CHECK FOR APT CONSOLE 

(2) 013116 132767 000100 166423 BITB #APTSPOOL,SENVM ;;SPOOL MESSAGE TO APT 

(2) 013124 001405 BEQ 62$ ::NO,GO CHECK FOR CONSOLE 

(2) 013126 010067 000004 MOV RO,61$ ?:SETUP MESSAGE ADDRESS FOR APT 

(2) 013132 004767 164650 JSR PC, SATY3 ::SPOOL MESSAGE TO APT 

(2) 013136 000000 61$: .wORD 0 ZiMESSAGE ADDRESS 

(2) 013140 132767 000040 166401 628: BITB $#APTCSUP,SENVM ;;:APT CONSOLE SUPPRESSED 

(2) 013146 001003 BNE 60$ S:VES,SKIP TYPE OUT 

(2) 013150 112046 28: MOVB (RO) +, =(SP) +:PUSH CHARACTER TO BE TYPED ONTO STACK 

(2) 013152 001005 BNE 4$ S:BR IF IT ISN'T THE TERMINATOR 

(2) 013154 005726 1ST (SP)+ [:1F TERMINATOR POP IT OFF THE STACK 

(2) 013156 012600 60$: MOV (SP) +,RO s RESTORE RO 

(2) 913160 062716 000002 3$: ADD #2, (SP) S: ADJUST RETURN PC 

(2) 013164 000002 RTI > ;RETURN 

(2) 013166 122716 000011 4$: CMPB #HT, (SP) ::BRANCH IF <HT> 

(2) 013172 001430 BEQ 

(2) 013174 122716 000200. (MPR —s-« MCRL, (SP) s BRANCH IF NOT <CRLF> 

(2) 013200 001006 BNE 

(2) 013202 005726 1ST (SP)¢ POP <CR><LF> EQUIV 

(2) 013206 104401 TYPE >: TYPE A CR AND LF 

(2) 013206 001523 SCRLF 

(2) 013210 105067 000130 CLRB SCHARCNT s:CLEAR CHARACTER COUNT 

(2) 013216 000755 BR >:GET NEXT CHARACTER 

(2) 013216 004767 000056 5$: JSR PC .STYPEC £:G0 TYPE THIS CHARACTER 

(2) 013222 126726 166230 6$: CMPB SFILLC,(SP)° s:1S IT TIME FOR FILLER CHARS,? 
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(2) 013226 001350 BNE 2s zr1f NO GO GET NEXT CHAR. 
(2) 013230 016746 166220 MOV NULL ,=(SP) S:GET # OF FILLER CHARS. NEEDED 
(2) 3;AND THE NULL CHAR, 
(2) 013236 105366 000001 7$: DECB = s«aAC SP) +:DOES A NULL NEED TO BE TYPED? 
(2) 013240 0027 : BLT 6$ [:BR IF NO=-GO POP THE NULL OFF OF STACK 
(2) 013262 004767 00003 JSR PC ,STYPEC £:G0 TYPE A NULL 
(2) 013266 105367 00007 DECB  $CHARCNT ':D0 NOT COUNT AS A COUNT 
013252 000770 BR 7$ LOOP 
(2) ZHORIZONTAL TAB PROCESSOR 
(2) 013528 11271 000040 8$: MOVB a’ (SP) s;REPLACE TAB WITH SPACE 
(2) 013260 09476 000014 9$: JSR PC, $TYPEC ::TYPE A SPACE 
(2) 013266 132767 000007 000052 BITB #7, SCHARCNT ;;BRANCH IF NOT AT 
(2) 013272 001372 BNE 9$ ::TAB STOP 
(2) O13 74 005726 TST (SP)¢ ::POP SPACE OFF STACK 
(2) 013276 000724 BR 2$ >:GET NEXT CHARACTER 
(2) 013300 105777 166144 STYPEC: TSTB asTPs s7WAIT UNTIL PRINTER IS READY 
(2) 013304 100375 BPL $TYPEC 
(2) 013306 116677 000002 166136 MOVB 2(SP),a$TPB :;LOAD CHAR TO BE TYPED INTO DATA REG. 
(2) 013314 1ee 766 000015 000002 CMPB #CR,2(SP) 3271S CHARACTER A CARRIAGE RETURN? 
(2) 013322 001003 BNE 1$ ; ;BRANCH 
(2) 013324 105067 000014 CLRB SCHARCNT 7 YES--CLEAR CHARACTER COUNT 
(2) 013330 000406 BR STYPEX SIEXIT 
(2) 013332 122766 000012 000002 1$: CMPB MLF ,2¢SP) s:1S CHARACTER A LINE FEED? 
(2) 013340 001402 BEO $TYPEX tI:BRANCH IF YES 
(2) 013342 10522 INCB (PC)+ S:COUNT THE CHARACTER 
(2) 013344 000000 SCHARCNT:.WORD O ; CHARACTER COUNT STORAGE 
(2) 013346 000207 $TYPEX: RTS PC 
(2) 
(2) 
(2) 
7H ASCII STRING INPUT ROUTINE 
(2) 013350 017667 000000 000014 INSTR: MOV a(SP),.MSG :PICK UP MESSAGE 
(2) 013356 062716 000002 ADD #2, (SP) : JUMP AROUND MESSAGE FOR RTI 
(2) 013362 105767 166160 TSTB. ss SEN [APT CONTROL 
(2) 013366 001036 BNE INSTR2 [YES NO TYPE 
(2) 013370 104401 .INST1: TYPE 
(2) 013372 000000 “MSG: 0 
(2) 0133746 012704 016146 MOV #INBUF ,R4 sGET STARTING LOC OF INBUF 
(3) 013400 012703 000007 MOV #7,R3 “MAX # OF CHARS 
(2) 0134604 105777 166034 1$: 1STB 40s aSTKS)«=—s TTY FLAG 
(2) 013410 100375 BPL 
(2) 013412 117714 166030 MOVB a$TKB,(R4) ;TAKE CHAR 
(2) 013416 142714 000200 BICB = #200, (R4) >STRIP 
(2) 013422 121427 000025 CMPB 3s (RG) #25 [1S IT <*G@> 
(2) 013426 001760 BEQ INSTI 
(2) 013430 122427 000015 CMPB (R4)+,815 sCHECK FOR CR 
(2) 013434 001413 BEO INSTR 
(2) 013436 105777 166006 2%: 1TSTB «= @STPS = TEST -FLAG 
(2) 013442 100375 BPL 2s 
(2) 013444 117777 165776 166000 MOVB a$TKB,aSTPB sECHO CHARACTER ; 
(2) 013452 005303 DEC R3 sDID YOU TYPE TOO MANY CHARS 7 
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(2) 0134546 001353 BNE 1$ 
(3) 013456 104401 LINSTE: TYPE 
(2) 013460 015453 MOM 3? 
(2) 013462 00742 BR "INST? RETRY 
(2) 013464 00000 INSTR2: RTI 
3) SCONVERT ASCII STRING TO OCTAL 
(2) 0134666 011605 .PARAM: MOV (SP),RS ;PUT CONTENTS OF SP INTO R5 
(5) 013470 012567 000162 MOV (R5)*,LOLIM :PUT LOW LIMIT INTO LOLIM 
(3) 013474 012567 000160 MOV (R5)+,HILIM “PUT HIGH LIMIT INTO HILI™ 
(3) 013500 012567 000156 MOV (R5)* DEVADR  ;PUT STORE LOC INTO DEVADR 
(5) 013506 112567 000154 Move (R5)*.LOBITS | ;PUT MASK INTO LOBITS 
(2) 013510 112567 000151 MOVB  (R5)#,ADRCNT _ PUT COUNT INTO ADRCNT 
(2) 013514 010516 MOV RS,(SP) ;RESTORE RETURN ADDR ON STACK FOR RTI 
(2) 013516 005005 PARAM1: CLR R5 
(2) 013520 012704 016146 MOV #INBUF ,R4 
(2) 0135¢4 122714 00001 CMPB «#15, (RQ) sCR ? 
(2) 013530 001420 BEQ PARERR ;YOU TYPED CR TOO SOON ! 
(3) 013532 121427 000060 1$: CMPBs« (RG) , #60 SLOW LIMIT ASCII 0 
(2) 013536 002415 BLT PARERR 
(3) 013540 121427 000067 CMPB  —s-« (RG) , #67 sHIGH LIMIT ASCII 7 
(2) 013544 003012 BGT PARERR 
(3) 013546 142714 000060 BICB #60, (R4) sCONVERT TO OCTAL 
(2) 013552 152405 BISB  —- (R4) +R “STORE AWAY ITS AN OK CHAR 
(3) 013554 122714 000015 CMPB «#15, (R4) “CR ? 
(2) 013560 001414 BEQ LIMITS ;NOW CHECK FOR HIGH &LOW LIMIT CONDS 
(2) 013562 006305 ASL RS “ALLOCATE ROOM FOR NEXT CHAR 
(2) 013564 006305 ASL R5 
(2) 013566 006305 ASL R5 
(2) 013570 000760 BR 1$ 
(2) 013572 122714 000015 PARERR: CMPB #15, (R4) 3CR? 
(2) 013576 001003 BNE 120$ 
(2) 013600 005737 013032 TST avRDSW 3CK SWR USED 
(2) 013604 001023 BNE PARTI 
(2) 013606 104407 120$:  INSTER ;RETRY 
(2) 013610 000742 BR PARAM 
(2) TEST TO SEE If NUMBER 1S WITHIN LIMITS 
(3) 013612 020567 000042 LIMITS: CMP R5,HILIM 
(2) 013616 101365 BHI PARERR ;THE # 1S TOO HIGH 
(2) 013620 020567 000032 CMP ,LOLIM 
(2) 913624 103762 BLO PARERR ;THE # IS _TOO LOW 
(2) 013626 136705 000032 BiTB LOBITS.R5 TEST BY MASKINGTHE # 
(2) 013632 001357 BNE PARERR 
(2) STORE NUMBER AT SPECIFIED ADDRESS 
(2) 013634 016704 000022 MOV DEVADR,R4 GET STARTING ADDR OF 
(2) 013640 010524 1$: MOV RS, (R4)+ sSTORE AT THIS ADDR 
(2) 013642 062705 00000 ADD #2,R5 
(5) 013646 105367 00001 DECB = ADRCNT.-«s; HOW MANY TIMES + 2 ? 
(2) 013652 001372 BNE 1$ 
(2) 013654 000002 PARTI: RTI 
(2) 013656 000000 LOLIM: 0 
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50 CNDUTA.M11 TYPE ROUTINE SEQ 0063 
2) 013660 000000 HILIM: 
(2) 013662 000000 DEVADR: 
(2) 013664 909000 LOBITS: 0 
(2) 013665 ADRCNT=LOBITS#1 
s: sSAVE PC OF TEST THAT FAILED AND RO-RS 
3) 013666 016667 000004 165232 .SAVOS: MOV 4(SP), SAVPC 
(2) sSAVE RO-RS 
(2) 013674 010567 165574 $v05: MOV RS, SREGS 
(2) 013700 010467 165566 MOV R4.SREGS 
(2) 013704 010367 165566 MOV R3.$REG3 
(2) 013710 010267 165552 MOV R2,$REG2 
(2) 013714 010167 165544 MOV R1.$REG1 
(2) 013720 010067 165536 MOV RO, $REGO 
(2) 013724 000002 RTI 
(2) SRESTORE RO-R5S 
(2) 013726 016700 165530 .RESOS: MOV $REGO,RO 
(2) 013732 016701 165526 MOV $REG1,R1 
(2) 033736 016702 165524 MOV SREG2,R2 
(2) 013742 016703 165522 MOV $REGS,R3 
(2) 013746 016704 165520 MOV $REGS RS 
(2) 013752 016705 165516 MOV $REGS,RS 
(2) 013756 000002 RTI 
(2) SCONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 
(2) 013760 104401 .CONVR: TYPE 
(2) 013762 015437 MCRLF sCR_ LF 
(2) 013764 017601 000000 MOV S(SP).R1 -PICK UP DATA POINTER 
(2) 013770 062716 000002 ADD #2.(SP) ;SET UP SP FOR RTI 
(2) 013774 012167 000130 MOV (R1)+,WRDCNT sPICK UP # OF WORDS FROM TABLE 
(2) 014000 112167 000126 1$: MOVB _—— (R1) +, CHRCNT “PICK UP # OF CHARS FROM TABLE 
(2) 014004 Niegi67 000123 MOVB  (R1)*.SPACNT  ;:PICK UP # OF SPACES FROM TABLE 
(2) 014010 013167 000120 MOV a(R1)+,BINWRD PICK Up ADDRESS OF MSG 
(2) 014014 016704 000114 2$: MOV BINWRD,R4 + SAVE 
(2) 014020 116705 000106 MOVB  CHRCNT,RS SAVE 
(2) 014004 012700 016210 MOV #TEMP,RO *STARTING ADDRESS OF TEMP BLOCK 
(2) 0614030 010403 3$: MOV RG RS 37 SAV 
(2) 014032 042703 177770 BIC #177770,R3 *CLR OUT UPPER BITS .. SAVE CHAR 
(2) 014036 062703 000260 ADD #260,R3 ; CONVERT TO ASCII 
(2) 014042 110320 MOVB = R3, (RO)+ :STORE AWAY 
(2) 014044 006204 ASR RG sSHIFT FOR NEXT # 
(2) 014066 006204 ASR RG “DITTO 
(2) 014050 006204 ASR R4 “DITTO 
(2) 014052 005305 DEC R5 “DEC CHAR COUNT 
(2) 014054 001365 BNE 3$ “DO IT AGAIN ? 
(2) 014056 $5443] 016252 MOV #MDATA.RS :STARTING ADDRESS OF MDATA BLOCK 
(2) 014062 11402 4$: MOVB = =(RO), (R3)¢ “REVERSE THE ORDER OF NUMGERS 
(2) 014064 105367 000042 DECB  CHRCNT ;DEC CHAR COUNT 
(2) 014070 001374 BNE 4$ 7DO IT AGAIN ? 
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(2) 014072 mie 000035 TSTB  SPACNT ;HOW MANY  SBACES 2 
(2) 014076 001405 BEO £4 ‘TYPE # | 
(2) 014100 Vere 00024 5$: MOVB 4#240,(R3S+¢ I FGPA PACE" IN ASCII 
(2) 014104 105367 00002 DECB © SPACNT DEC # of SPACE COU 
(2) 014110 901373 BNE 5 OITA 
(2) 014112 10501 6$: CLRB ss (R33) TINSERT ASN FOR TTY OUTPUT ROUTINE 
(2) 014116 104401 TYPE 
(2) 014116 016252 MDATA atuis MESSAGE 
(2) 014120 005367 000004 DEC WROCNT : HOw MANY #'S ? 
(2) 014124 001325 BNE 1$ THIS ROUT INE AGAIN IF NOT EQUAL TO 0 
(2) 014126 000002 RTI : RETURN ip? PROGRAM 
(2) 0141 9 000000 WRDCNT: 0 
(2) 014132 000900 CHRCNT: 
(2) 014133 SPACNT=CHRCNT #1 
(2) 014134 000000 BINWRD: 0 
5} COMPARE THE FIRST CHARACTER JN THE TELETYPE INPUT 
(2) ‘BUFFER TO THE CHARACTERS ° 
(2) ZI1F THE CHARACTER IS "'N’’ CL EARS THE FLAG 
(2) ;IF THE CHARACTER IS “'Y'’ SET THE FLAG 
(2) 014136 017605 000000 .SETFLG:MOV a(SP),R5 : 
(2) 014142 122767 000116 001776 CMPB es # "NV, INBUF :1S IT "N' ? 
(2) 014150 001002 BNE 1$ 
(2) 014152 105015 CLRB = (R’5) :000 
(2) 014154 000406 BR 2$ sv 
(2) 014156 122767 000131 001762 1S: CMPB es #"Y, INBUF :1S IT “y"' ? 
(2) 014164 001005 BNE 4 
(2) 014166 112715 177777 MOVB #=1, (RS) 3377 
(2) 014172 062716 000002 2$: ADD #2, (SP) 
(2) 014176 000002 RTI 
(2) 014200 104407 3$: INSTER ;RETRY 
(2) 014202 000755 R *SETFLG 
(2) .SBTTL ERROR HANDLER ROUTINE 
(3) SRARAAAAEAAARAAREAEAAAAEAAAERA AERA AAAAAAAAAAAEREARERERERERTEREREREEE 
(2) tSTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
(2) s*SAVE THE ERROR ITER NUMBER AND THE ADDRESS OF THE ERROR CALL 
(2) 7*AND GO TO SAVIT ON ERROR 
(2) Pe THE SWITCH OPT LONS PROVIDED BY THIS ROUTINE ARE: 
(2) 7*Sw13=1 INHIBIT ERROR TYPEOUTS 
(2) 7*5W10=1 BELL ON ERROR 
(2) :*Sw09=1 LOOP ON ERROR 
(2) 7 *CALL 
(2) te ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 
(3) 014204 SERROR: 
(2) 014206 105267 165173 7$: INCB —s SERFLG SET THE ERROR FLA G 
(2) 014210 001775 BEQ 4 ON'T LET THE FLAG GO TO ZERO 
(2) 014212 016777 165164 165222 MOV STSTNM, aDISPLAY SOT SPLAY TEST NUMBER AND ERROR FLAG 
(2) 014220 032777 002000 165212 BIT #B1T10.aSWR ::BELL ON ERROR? 
(2) 014226 001402 BEQ 1$ 3:NO = SKIP 
(2) 014230 104401 001516 TYPE SBELL [RING BELL 
(2) 014236 005267 165152 1$: INC $ERTTL ;:COUNT THE NUMBER OF ERRORS 
(2) 014240 011667 165152 MOV (SP), SERRPC ::GET ADDRESS OF ERROR INSTRUCTION 
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(2) 014244 16 1 900006 165144 SUB RPC 
(2) 014 Ff 117767 165140 165134 MOVB agennec SITEMB ;;STRIP_AND Save THE ERROR ITEM CODE 
(2) 014260 032777 020000 165152 BIT 1T13,aSwR SISKIP TYPEOUT IF SET 
(2) 014 $8 01004 BNE 3S 23 SKIP TYPEOUTS 
(2) 014270 004767 00007 JSR PC gayi 3:G0 TO USER ERROR ROUTINE 
(3) a1e$06 104401 00152 —_ TYPE =, SCRLF 
(2) 014300 122767 000001 165240 CMPB #APTENV,SENV the eer IN APT MOD 3 
(2) 014306 001007 BNE ss ad 4 APT ERROR REPORT 
is} Bieeie 116767 165100 000004 MOVB SITEMB,21$ 33$ Sef t TEM NUMBER AS ae NUMBER 
(2) 14316 004767 163474 JSR PC, SATYS ‘REPORT FATAL ERROR TO A 
ts} O10 355 000 218: BYTE 8 
(2) 014 900 BYTE 
(2) 014324 000777 228: BR 223 1sne" ERROR Loop 
(2) B16 388 005777 165106 2$: TST aswR ALT ON ERROR 
(2) 014332 100001 BPL 3$ £35k KIP IF CONTINUE 
(2) 014334 000000 HALT HALT ON ERROR! 
(2) 014336 032777 001000 165074 3$: BIT #B1T09,aSwWR ; LOOP ON ERROR SWITCH SET? 
(2) 014344 001402 BEQ 4$ 3BR IF NO 
(2) Igo 016716 165036 MOV SLPERR, (SP) FUDGE RETURN FOR LOOPING 
(2) 014352 005767 165136 4$: TST SESCAPE +3 CHECK FOR AN ESCAPE ADDRESS 
(2) 014356 001402 BEQ IF NONE 
ts} Bieeee 016716 165130 5$ MOV SESCAPE, (SP) FUDGE RETURN ADDRESS FOR ESCAPE 
(2) 014364 000002 RTI 3 ;RETURN 
(2) 014366 010067 164536 SAVIT: MOV RO,HLDO 
(2) 014372 010167 164534 MOV R1,HLD1 
(2) 014376 010267 164532 MOV Re. 
(2) 014402 010367 164530 MOV R3,HLD3 
(2) 014406 010467 164526 MOV R4,HLDG 
(2) 014412 010567 164524 MOV R5,HLDS 
ts} 014416 016767 164760 164520 MOV STSTNM,HLD6 
(? -SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
(4) se eeeeeeeeeeeeeereeeeeeeeeeeetreeKenetetteeeAeKeeeeeeeerenetese 
(3) TSTHIS ROUTINE USES THE “ITEM CONTROL BYTE" (SITEMB) 10 DETERMINE WHICH 
(3)  *ERROR 1S TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘‘ERROR TABLE’ (SERRTB), 
fi + AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
(3) 014424 ; SERRTYP: 4 oe” r 
(3) 014424 104401 001523 TYPE -SCRLF :i"'CARRIAGE RETURN’ & “‘LINE FEED 
(3) 014430 010046 MOV RO, (SP) 33 SAVE 
(3) 014432 005000 CLR RO 3sPICKUP THE ITEM INDEX 
(3) 014434 153700 001414 BISB a#$1TEMB,RO 
1H 014440 001004 BNE 1$ 43 rod tie en ne a JUST 
(4) 014442 016746 164750 MOV SERRPC ,-(SP) SAVE ig a FOR TYPEOUT 
(4) :FEnnbe DDRESS 
(4) 014446 104402 TYPOC GO Pe tae ASCIICALL DIGITS) 
(3) 014450 000426 BR 6$ : OuT 
(3) 014452 005300 1$: DEC RO ; JADJUST THE INDEX SO THAT IT WILL 
(3) 014454 006300 ASL RO 22 WORK FOR THE ERROR TABLE 
(3) 014456 006309 ASL RO 
(3) 014460 006300 ASL RO 
(3) 014462 062700 001652 ADD #SERRTB,RO 3:FORM TABLE POINTER 
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CNDUTA.M11 =0CT- :16 ERROR MESSAGE TYPEOUT ROUTINE SEQ 0066 
(3) 014466 012067 000004 MOV (RO)+,2$ s:PICKUP “ERROR MESSAGE’ POINTER 
(3) 0144 1404 BEQ 3$ ::SKIP TYPEOUT IF NO POINTER 
(3) 014474 104401 TYPE S:TYPE THE "ERROR MESSAGE’ 

(3) 014476 000000 2$: .WORD 0 S:ERROR MESSAGE’: POIN ER GOES HERE 
(3) 914900 104401 001523 TYPE ,SCRLF *: CARRIAGE RETURN’ & LINE FEED 
(3) 14304 912067 000004 3$: MOV (RO)+,4$ *:PICKUP ‘DATA HEADER’ POINTER 
(3) 014510 001404 BEQ 5$ ::SKIP TYPEOUT IF 0 
(3) 014512 104401 TYPE S:TYPE THE ‘DATA HEADER’ 
(3) 014514 990000 4$: .WORD 0 :3''DATA HEADER’ POINTER GOES HERE 
(3) 14 I 104401 001523 TYPE SSCRLF :U'CARRIAGE RETURN & "LINE FEED" 
(3) 0145 911000 5$: MOV (RO) RO ::PICKUP ‘DATA TABLE’ POINTER 
(3) 0145 4 001004 BNE 7$ $:GO TYPE THE DATA 
014526 012500 6$: MOV (SP)+,RO S:RESTORE RO 
(3) 014530 104401 001523 TYPE SCRLF 3;"CARRIAGE RETURN’ & “LINE FEED" 
(3) 014534 000207 RTS PC + RETURN 
(3) 014536 7$: 
(4) 014536 013046 MOV a(RO)+,<(SP) ::SAVE a(RO)+ FOR TYPEOUT 
(4) 014540 104402 TYPOC 3:60 TYPE*-OCTAL ASCII(ALL DIGITS) 
(3) 014542 005710 TST (RO) $:1$ THERE ANOTHER NUMBER? 
(3) 014546 001770 BEQ $ ':BR IF NO 
(3) 014546 104401 014554 TYPE aS S:TYPE TWO(2) SPACES 
(3) 014552 000771 BR $ LOOP 
(3) 014554 020040 000 8$: wASCIZ / / ::TWO(2) SPACES 
(3) 014560 SEVEN 
(2) .SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
‘¢? P_eeaeeanareraeeererereeereteetereetateKenAkataeeneaneeesasaeaees 
(2) :*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
(2) S*OCTAL (ASCII) NUMBER AND TYPE IT. 
(2) i e$TYPOS--nENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
*@ 8 
(2) ie MOV NUM, =(SP) ;;NUMBER TO BE TYPED 
(2) 3 TYPOS [CALL FOR TYPEOUT 
(2) ie .BYTE N ::N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
(2) 3* -—BYTE 7:M=1 OR O 
(2) te :;1=TYPE LEADING ZEROS 
(2) 3 *:Q=SUPPRESS LEADING ZEROS 
3% 
(2) :#$TYPON=-=-ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
(2) [*$TYPOS OR $TYPOC 
(2) s*CALL: 
(2) te MOV NUM, =(SP) s;NUMBER TO BE TYPED 
(3) $e TYPON S:CALL FOR TYPEOUT 
3* 
(2) i #$TYPOC~--ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
*@ 8 
is} be MOV NUM, =(SP) ::NUMBER TO BE TYPED 
(2) $e TYPOC S:CALL FOR TYPEOUT 
(3) 014560 017646 000000 STYPOS: MOV a(SP),-(SP) s:PICKUP THE MODE 
(2) 014564 116667 000001 000211 MOVB 1(SP),$OFILL  3;LOAD ZERO FILL SWITCH 
(2) 014572 112667 000207 MOVB  (SP)+,SOMODE+1 ;;NUMBER OF DIGITS TO TYPE 
(2) 014576 062716 000002 ADD #2, (SP) S:ADJUST RETURN ADDRESS 
(2) 014602 900406 BR $TYPON 
(2) 014606 112767 000001 000171 $TYPOC: MOVB #1,S$OFILL ::SET THE ZERO FILL SWITCH 
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(2) 016040 02404 0131 051117 

(2) 81808 ay 9 1 99 

(2) 1605 1 01 031 10 MEXTJ: .ASCIZ <15><12><12>/H315 CONNECTOR ON ?(¥ OR N)=/ 

(2) 016060 032461 04144 4711 

(2) 016066 042516 83610 B3 i! 

(2) 016074 047440 be 11g 24077 

(2) 01610 93013) 051117 047040 

(2) 016110 026651 909 

(2) 01611 015 020012 043536 MCNTG: .ASCIZ <15><12>/ *G / 

is) 0161 9 020040 990 

(2) 0161 040 053523 036522 MMSWR: .ASCIZ / SWR= / 

(2) 0161350 020040 000040 

(2) 016136 020940 047040 053505 MMNEW: .ASCIZ / NEW= / 

(2) 016142 020075 000040 

it EVEN 

(3) BUFFERS FOR INPUT-OUTPUT 

(2) 016146 000000 INBUF: O 

(2) 016210 .=.*40 

(2) 016210 000000 TEMP: 0 

(2) 016252 =. #40 

(2) 016252 000000 MDATA: 0 

(2) 016314 -=.+40 

(3) .SBTTL SCOPE HANDLER ROUTINESTARS 

(3) s*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
(3) S*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
(3) [*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 

(3) s*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

(3) 3*SWi4=1 LOOP TEST 

(3) zeSwil=1 NHIBIT ITERATIONS 

(3) 2*Sw09=1 LOOP ON ERROR 

(3) 3*Sw08=1 LOOP ON TEST IN SWR<7:0> 

(3) s*CALL 

(3) se SCOPE ::SCOPE=10T 

3} 016314 SSCOPE: 

ee ;SCCPE LOOP AND INTERATION HANDLER 

(5) 016314 = «SCOPE : 

(5) 0163146 004767 174376 JSR PC, CKSWR 

(5) 016320 005067 163072 CLR SERRPC CLEAR LAST ERROR PC 

(5) 016386 022716 003376 CMP #TST142, (SP) :1S SCOPE AT BEGINING OF TEST 1? 
fs 016330 001422 BEQ $XTSTR :YES NO LOOP. 

(5) 016332 032777 040000 163100 IT1TST: BIT #B1T14,aSwWR THIS CODE IS FOR TESTING FOR BIT 14 
(5) 016340 00141 BEO 1 30N LSI WHICH SYSMAC CANNOT HANDLE 
(5) 016342 016767 163034 163036 MOV STSTNM,SLPADR 

(5) 016350 900406 He 1$ 

(5) 016352 105777 163066 TSTB astks sKEYBOARD DONE? 

(5) 016356 100123 BPL SOVER :BR IF NO 

(5) 016360 01 766 163062 177776 MOV a$1KB -2(SP) CLEAR DONE BIT 

(3) 016366 032777 040000 163044 1$: BIT #B1T14,aSuR :;LCOP ON PRESENT TEST? 

(3) 016374 001114 BNE SOVER --VES | s 

(3) ;#@NSMASTART OF CODE FOR THE XOR TESTERM@MRA 
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(3) 016376 000416 SXTSTR: BR Ag s:1f RUNNING ON THE "XOR'’ TESTER CHANGE 
(3) ::THIS INSTRUCTION TO A "'NOP’’ (NOP=240) 
(3) 016400 013746 000004 MOV AMERRVEC,<(SP) ::SAVE THE CONTENTS OF THE ERROR VECTOR 
(3) 016404 O27 7 016426 000004 MOV #5$, aFERRVEC 33;SET FOR TIMEOUT 

(3) 016412 005737 177060 TST aei? :: TIME OUT ON XOR? 

(3) 016616 0126 7 000004 MOV (SP)+, aMERRVEC ::RESTORE THE ERROR VECTOR 

(3) 0164 00463 BR SVLAD 2:G0 TO THE NEXT TEST 

(3) 0164624 Oeg6¢ 5$: CMP (SP)+, (SP)+ [:CLEAR THE STACK AFTER A TIME OUT 
(3) 016626 012637 000004 MOV (5P)+.a#ERRVEC ::RESTORE THE ERROR VECTOR 

(3) 016432 000423 BR 7$ ::LOOP ON THE PRESENT TEST 

(3) 016434 6$:;M#MNHEND OF CODE FOR THE XOR TESTERSAMMM 

(3) 016434 032777 000400 162776 BIT #B1T08,aSwR ::LOOP ON SPEC. TEST? 

(3) 0164462 001404 BEQ 3:8 N 

(3) 016444 127767 162770 162730 CMPB ss @SWR, STSTNM [ION THE RIGHT TEST? SWR<7:0> 

(3) 016652 001465 BEQ SOVER t:BR IF Y 

(3) 016456 105767 162723 2s: 1STB  —s-_: SERFLG S:HAS AN ERROR OCCURRED? 

(3) 016460 001421 BEQ $ 77BR I 

(3) 016462 126767 162727 162713 CMPB $ERMAX,SERFLG ::MAX. ERRORS FOR THIS TEST OCCURRED? 
(3) 016470 101015 BHI 7:BR I 

(3) 016672 032777 001000 162740 BIT #B1T09,aSwR SLOOP ON ERROR? 

(3) 016500 001404 BEO 4$ ::BR I 

(3) 016502 016767 162702 162676 7$: MOV SLPERR,SLPADR ::SET LOOP ADDRESS TO LAST SCOPE 

(3) 016510 000446 BR SOVER 

(3) 016512 105067 162665 4$: CLRB ss SERFLG :;7ERO THE ERROR FLAG 

(3) 016516 905067 162770 CLR STIMES [:CLEAR THE NUMBER OF ITERATIONS TO MAKE 
(3) 016522 000415 BR 1$ ::ESCAPE TO THE NEXT TEST 

(3) 016526 032777 004000 162706 38: BIT #BIT11,aSwR :: INHIBIT ITERATIONS? 

(3) 016532 001011 BNE 1$ ::BR IF YES 

(3) 016534 005767 162774 TST SPASS ::1F FIRST PASS OF PROGRAM 

(3) 016540 001406 BEO 1$ :: INHIBIT ITERATIONS 

(3) 016542 005267 162636 INC SICNT :: INCREMENT ITERATION COUNT 

(3) 016546 026767 162740 162630 CMP STIMES,SICNT ?:CHECK THE NUMBER OF ITERATIONS MADE 
(3) 016554 002024 BGE SOVER °:BR IF MORE ITERATION REQUIRED 

(3) 016556 012767 000001 162620 1$: MOV #1,S1CNT SIREINITIALIZE THE ITERATION COUNTER 
(3) 016564 016767 000056 162720 MOV SMXCNT.STIMES ::SET NUMBER OF ITERATIONS TO DO 

(3) 016572 105267 162604 SSVLAD: INCB  $TSTNM :: COUNT TEST NUMBERS 

(3) 016576 116767 162600 162726 MOVB $TSTNM.STESTN ::SET TEST NUMBER IN APT MAILBOX 

(3) 016604 011667 162576 MOV (SP) ,SLPADR [:SAVE SCOPE LOOP ADDRESS 

(3) 016610 011667 162574 MOV (SP), SLPERR *:SAVE ERROR LOOP ADDR 

(3) 016614 005067 162674 LR S:CLEAR THE ESCAPE FROM ERROR ADDRESS 
(3) 016620 Mere? 000001 162567 MOVB #1, SERMAX S:ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
(3) 0166¢6 016777 162550 162606 SOVER: MOV STSTNM,@DISPLAY ::DISPLAY TEST NUMBER 

(3) 0166346 016716 162546 MOV SLPADR. (SP) [FUDGE RETURN ADDRESS 

(5) 916040 90000¢ 4$: RTI 

(5) 016642 0014 BRW: 1407 

(5) 016644 000432 BRX: 432 

(3) 016646 000005 SMXCNT: 5 :;MAX. NUMBER OF ITERATIONS 

(2) .SBITL TRAP DECODER 

‘? ppeeeeeeenanecerererereeesereererenarereeenenetereneseseeeneneees 
(2) [THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
(2) TeAND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
(2) [eOF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 

(2) 2eG0 TO THAT ROUTINE. 

( 

(2) 016650 010046 STRAP: MOV RO, -(SP) ::SAVE RO 
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macyi} sROcioeg) 14-DEC~62 10:01 PAGE 61-58 
1 211: TRAP DECODER SEQ 0072 
166 000002 MOV 2(SP),RO 3:GET TRAP ADDRESS 
1$e g 979808 TST =(RO) ::BACKUP BY 2 
1 doeeee MOVB (RO) ,RO ::GET RIGHT BYTE OF TRAP 
1666 ASL RO >:POSITION FOR INDEXING 
01 1 4 016704 MOV STRPAD(RO) ,RO zz: INDEX TO TABLE 
016670 00 RTS RO ':60 TO ROUTINE 
s;THIS IS USE TO HANDLE THE "'GETPRI'’ MACRO 
016672 011646 STRAP2: MOV (SP) ,<(SP) s:MOVE THE PC DOWN 
16676 016666 000004 000002 MOV 4(SP5 ,2¢SP) ::MOVE THE PSW DOWN 
16702 000902 RTI TIRESTORE THE PSW 
.SBTTL TRAP TABLE 
s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
*BY THE ‘‘TRAP*’ INSTRUCTION. 
F ROUTINE 
016704 016672 $IRPAD: .WORD  $TRAP2 
016706 013066 $TYPE s:CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
016710 014604 STYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING geegs? 
016712 014560 $TYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
016714 014620 STYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
016716 013044 .SCOP1 z3CALLs Scop! TRAP +5 (104405) 
016720 013350 & ~ INSTR sCALL=INSTR TRAP +6(104406) 
016722 013456 "INSTER ::CALL=INSTER TRAP*7(104407) 
016724 013466 [PARAM ;;:CALL=PARAM TRAP*+10( 104410) 
016726 013666 “SAVOS F3CALL=SAVOS =: TRAP#11(104411) 
016730 013726 *RESOS 3: CALL=RESO5 TRAP+12( 104412) 
016732 013760 “CONVRT ::CALL=CONVRT TRAP#+13(104413) 
016734 014136 "SETFLG ::CALL=SETFLG TRAP+14(104414) 
pe eeeeeeneereeeereereterererenereeeeneeetteeeenenereneneeeres 
JUTILITIES 
peeeeeeneeanereerenererereerterenraeaeeaeeenenaneneeenatenens 
THIS uTiLity CALCULATES PRIORITY LEVEL 
016736 006367 000044 DULEV: ASL DUPRT SHIFT LEFT 
016742 006367 000040 ASL SUPRT 
016746 006 67 000034 ASL DUPRT ; 
16752 006367 000030 ASL DUPRT 
016756 006367 000024 ASL DUPRT 
016762 016767 000020 000020 MOV DuPRT Legst :MOVE THIS TO LESS1 
016770 162767 000001 000012 SUB LESssi [CREATE LESS1 
016776 042767 000037 000004 BIC ast, Fest [CLEAR thove 
017004 000207 RTS 
017006 000240 DUPRT: PRS 
017010 000200 LESS1: PR4 SLEVEL TO ALLOW INTERRUPTS 
sNEW PU ADDRESSES 
017012 016767 000126 162672 DUADDR: MOV DUBASE .RXCSR  —-: XXXO 
017020 005267 000120 INC DUBASE 
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011046) _14-DEC-82 
3b: 


OCT-82 11:16 
O16 767 00114 
Reser R188 
319 67 1 
1o76¢ 00074 
30 367 BR868 
16767 Boe 
016767 000054 
005267 4 94 | 
016767 00004 
005267 iets 
016767 000030 
003267 BRORE 
016767 000016 
005267 000010 
016767 000004 
000207 
000000 
042777 040000 
005067 162322 
006067 162314 
006067 162312 
00626 162306 
042767 100000 
056777 162274 
042777 020000 
052777 020000 
05367 161672 
001346 
000207 
916767 162240 
005067 162236 
012727 000010 
000000 
006067 162222 
005567 leceed 
005367 177762 
001371 
0 7 162206 
1034 
052767 000400 
000403 
042767 000400 
000207 
016767 162154 
005067 162152 
012727 000010 
000000 


162662 
18863 

168682 
162622 
162612 
162602 
162572 


162552 


162240 


162172 
162162 


162154 


10:01 PAGE 61-59 


TRAP TABLE 


R 
DUBASE: 0 


DUBASE ,HRXCSR 
BASE 


DU 

DUBASE , RXDBUF 

DUBASE ,PARCSR 
BASE 


DU 
DUBASE , HRXDBUF 
DUBASE ,HPARCSR 


DUBASE 
DUBASE , TXCSR 
DUBASE ,HTXCSR 
DUBASE  TxDBUF 
nee enone 


700d 


003 
XKxd 


5 MAG 
5 MKKS 
TKKK6 
sKKK7 


THIS UTILITY POKES THE MAINT DATA BASED UPON THE 
; INFORMATION CONTAINED IN $STMP1 AND IT IS 


;SHIFTED IN BY THE CONTENTS OF SHIFT 


RPOKE: BIC #MTDATA,aTXCSR 

CLR $TMP2 

ROR $TMP1  ;TORCE CARRY 

ROR $TMP2 :PICK UP CARRY IN BIT 15 

ASR TMP2 :SHIFT INTO BIT 14 

BIC #B1T15,$TMP2 :CLR BIT 15 

BIS STMP2,aTXCSR | :POKE MAINT DATA 

BIC #CLK,aTXCSR SPOKE CLK 

BIS #CLK.aTXCSR ; 

DEC HIFT 

BNE RPOKE 

RTS PC 

;THIS ROUTINE CALCULATES ODD PARITY FOR AN 8 BIT CHAR 
ODD8: ry STMP1,STMP2 sSAVE TEMP1 

L 

MOV #8. , (PC) 
4%: 0 
1$: ROR $TMP2 

ADC STMP3 

DEC 4$ 

BNE 1$ 

ROR STMP3 

BCS 

Bis #B118,S$TMP1 7SET ODD PARITY 
2%: BIC #B1T8,S$TMP1 :CLR EVEN PARITY 

-$TMP1 NOW HAS ODD PARITY CHARACTER 
3$: RTS PC 
-THIS ROUTINE CALCULATES EVEN PARITY FOR AN 8 BIT CHARACTER 
EVENB: MOV STMP1,$TMP2 :SAVE TEMP1 

STMP3 
8.,(PC)¢ 


4$: 


SEQ 0073 
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CNDUTA.M11 30-OCT-82 11:16 TRAP TABLE SEQ 0074 


a 35 017340 9 7 16 136 1$: ROR $TMP 
- 4 O17 4 005567 1g 134 ADC $TMP 
8257 017350 99 7 177762 DEC 4$ 
8298 017 34 01371 BNE 1$ 
8259 017 $ 006067 162122 ROR $TMP3 
8260 017 10 004 BCC 2$ 
8261 017364 052767 000400 162106 BIS #B1T8,$TMP1 :SET EVEN PARITY 
8262 017372 000403 R 
B268 017374 042767 000400 162076 2%: BIC #8118, $TMP1 “CLR ODD PARITY 
B2 >$TMP1 NOW HAS EVEN PARITY CHARACTER 
8265 017402 000207 38: RTS PC ; 
866 017406 062716 000002 TRPREG: ADD #2,(SP) ;ALLOW IT TO CRUNCH’ INTO HLT BACK 
826 [IN MAIN PART OF THE PROGRAM 
8268 017410 00000 RTI 
8269 01741 POINT=. sSAVE POINTER 
(1) 00106 .=100 
(1) 000100 017412 $CLKVEC sLKVEC HANDLER 
(1) 000102 000300 300 S INTERRUPT HANDLER PRI 
(1) 000140 -=140 BRKVEC 
(1) 000140 170000 170000 [ODT START ADDRESS 
(1) 000142 000300 300 [PRIORITY 
(1) 017412 .=POINT “RESTORE POINTER 
(1) 017412 104601 017420 SCLKVEC: TYPE ,CLKMES 
(1) 017416 000000 , HALT 
(1) 017620 005015 0455146 042526 CLKMES: .ASCIZ <15><12>/LKVEC INTERRUPT = DISCONNECT LTC / 
(1) 017426 020103 047111 042524 
(1) 0174636 O5112@ 050125 020124 
(1) 017442 020055 044504 041523 
(1) 0174650 047117 042516 052103 
(1) 017456 046040 041524 000040 
8270 000001 END 
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CNDUT“A_MACY11_30(1046) _14=DEC-82 
CNDUTA.M11 socout 82 11:16 


BASELV 001162 1498+ 8178 
BB. 003026 1298 
Bie”. 802006 118%" 8156 8157158. «B1S9.s«B160=«B161—Ss«Bt62s«BTSSsC 
= 6 16 164 
R169 «B170-=Ss«s«wB171.~=«é«éw2~Ss«T7S—s«BI76 
8170 = 00000 81498 
B1T00 = 000001 81098 
BIT01 = 000002 81698 
BITO2 = 900004 81098 
BITO$ = 000010 81698 
BIT04 = 00002 81698 
BITOS = 000040 81098 
BIT06 = 00010 81698 
BIT0? = 000200 81498 
BITOB = 000400 81698 8178 
BIT09 = 001000 81698 8178 
BIT1 = 000002 81498 
BIT10 = 002000 81698 8178 
BIT11 = 004000 81498 8178 
BIT12 = 019000 81498 
BIT1$ = 020000 81298 8178 
BIT14 = 040000 81698 8178 
BIT1§ = 100000 1098 8225 
site = 000004 81494 
BIT = 000010 81494 
BiTZ = 000020 81698 
BITS = 000040 81498 
BIT = 000100 81698 
BIT? = 000200 81498 
BIT8 = 000400 81698 8244 8246 8261 8263 
BIT = 001000 B1L98 
BPTVEC= 000014 Bion 
BREAK = 000001 81494 8151 8152 8153 8154 8155 
BRKVEC= 000140 81494 
Ru 01664 81780 
x 016644 81784 
CARDET= 010000 81498 
CC (012622 81788 
CHRCNT 014189 8178a« 
CKSWR 012716 31788 
CLK = 020000 B169# 8151 8152 8153 8156 8155 8156 8157 8158 8159 
8163 8164 8165 8166 8167 8169 8170 8171 8172 8175 
CLKMES 017420 82694 
CNILU_ 012772 8149 81788 
CONVRT= 10441 81784 
COUNT 001124 B149# 8151" 8152" 8153" 8154* 8155e 
CR = 000015 81298 8178 
CRLF = 000200 81698 8178 
(TS = 020000 81698 
DDISP = 177570 81698 
DEVADR 013662 8178a« 
DEVICE 015325 81788 
DRI 002132 81498 
DH1 «002067 81698 
DISPLA 001442 B109¢* 8178 
DISPRE 000174 81494 


8165 


8160 
8176 


166 


81 


SEQ 0076 


67 


064 


CNDUT=A MACY11 
CNDUTA.M11 
DNA = 100000 
DNAINT= 000040 
DSC = 100000 
DSINTE= 000040 
DSR = 001000 
DSWR = 177570 
DTR = 000002 
DT1 002116 
DI4 002126 
DUADDR 017012 
DUBASE 017144 
DULEV 016736 
DUPRT 017006 
DURIS 001740 
DURIV 001736 
DUTIS 001744 
DUTIV 001742 
EIGHT = 006000 
EMTVEC= 000030 
—EM1 001762 
EM2 002022 
EMS 002043 
EMG 01746 
ERRCNT 001114 
ERRVEC= 000004 
EVENS 0173520 
EVEPAR= 001400 
EVPAR = 000400 
FIVE = 000000 
FRMERR= 020000 
GNS = reeree 
HDXEN = 0000 
HILIM 013660 
HLDO 001130 
HLD! 001132 
HLD<¢ 001134 
HLD3 001136 
HLD4 001140 
HLD5 001142 
HLD6 001144 
OLD 001120 
HPARCS 001724 
HRXCSR 001714 
HRXDBU 001720 
= 000011 
HTXCSR 001730 
HTXDBU 001734 
UF 016146 
INIFLG 001172 
INSTER= 104407 
INSTR = 104406 
INSTR2 013464 
IOTVEC= 000020 
ISYMOD= 000000 
JMRBY 001153 
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8197 
Ht 8198" 8199 8200* 8202 8203* 


82 
* 8211 8212* 8213 82 
8185* 8186" 8187+ 8188 8189 8193" 


8152 8159 8163 


8153 8154 8155 8164 8166 8169 8171 
8156 8160 8164 8165 8166 8167 
8153 8154 8155 


8153 8154 8155 8166 8167 8171 8172 


820¢ 


8175 


8205 


8206* 


SEQ 0077 
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SEQ 0078 
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CNDUTA.M11 30-OCT-82 11:16 CROSS REFERENCE TABLE -=- USER SYMBOLS SEQ 0079 
163* 8164 8165* 8166 8167" 8169* 8170" 8171" 8172* 8175* 8176" 8202 
PAREN = 001000 1494 
PARER = 01 098 1494 8152 8153 8154 8155 
PARERR 01557 A 
ARTI 013654 1784 
PASCNT 00111 149#* 8178+ 
PFTAB 01514 1788 
PIRQ = 17777 81494 
PIRQVE= 00024 81494 
OINT = EERE 82694 
PRO = 8288 81494 
POP1SP= 00 {$0 81498 
POP2SP= 022626 81498 
PRO = 000000 81494 
PR1 = 000040 Epp ad 
PR = 000100 1494 
PR = 000°40 81498 
PRG = 000200 81498 8194 
PRS = ait 8 81498 8193 
PR6 = 000300 81494 
PR? = = 000340 81494 
PS = 177776 81498 
PSW == 177776 81498 
PUSHRO= 010046 81498 
PUSH1S= 005746 81494 
PUSH2S= 024646 81494 
PWRVEC= eet e4 8149a 
013032 81784 
RECACT= 004000 81494 
REPLAY 012520 8178" 
RESTAR 015044 81784 
RESTRT 012700 81784 
ae ayers ret 81498 
$05 = 10441 81784 
RETURN 001104 8149#* 8178 
ING = 040000 81498 
RINTEN= 000100 81498 
ROTADD 001170 8149#* 8178* 
POKE 017146 8151 8152 8153 8154 8155 82208 8230 
RTS = 000004 81494 
RUNA = teeeee ogre 286¢ 6003 6417 
RUNB = eeeeee J 570 871 6010 6426 
RUNC = teeeee YJ 3h 4 5379 6017 6435 
RUND = 0 28 6" HEH 5888 6024 6444 
R = eeeeee UJ 79 898 6031 6453 
| RUNF_ = eeeeee YJ 2808 5908 6038 6462 
RUNIT 012424 3 8a 
RXCSR_ 001712 1494 81518 $13¢° 8153* Bi3e* 8155* 8178 8197* 
RXDBUF 1716 1494 8152 815 815 155 8201+ 
RXDONE = 1494 
RXERR = 10000 1494 8152 8153 8154 8155 
SAVIT 014366 1784 
SAVPC) =: 001 1494 8178« 
SAVSP 001116 1498 8178+ 
SAVOS = 104411 1784 
1 = 104405 1784 


CNDUT“A MACY11 


CNDUTA.M11 
SEND = 000020 
EREC 001150 
SETFLG= 104414 
EVEN = 94008 
SEXMIT 00114 
HIFT 01122 
S1x 902009 
SPACNT= 0141 
SRD = 002000 
STACK = B21 88 
SID = 8001? 
STFLG 00117 
STKLMT= 177774 
STPSYN= 000490 
s$v05 013674 
SwR 001440 
SWREG 000176 
SWREGL 013034 
SwO = 000001 
$woO = 000001 
Sw01 = 000002 
SwO2 = 000004 
swO3 = 000010 
w04 = 000020 
$wOS = 000040 
w06 = 000100 
$w0O7 = 000200 
$sw08 = 000400 
swo9 = 001000 
Swi = 000002 
$wi0 = 002000 
-$W11 = 004000 
Swi2 = 010000 
Swi3 = 020000 
Sw14 = 040000 
Swi5 = 100000 
Sw = 000004 
a) = 000010 
SWw4 = = 000020 
SWS = 000040 
SW6 = 000100 
| SwW7 = 000200 
SWB = 000400 
SiG 001000 
SYNCNO 1146 
SYNEXT= 020000 
SYNINT= 030000 
SYNSCH= 000020 
SYSTST= Baty 
TBITVE= 000014 
TEMP 16210 
TKVEC = 000060 
TPVEC = 000064 
TRAPVE= 000034 
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8154 


¢ 7 


CROSS REFERENCE TABLE == USER SYMBOLS 

159 
B75 
8175 
8154" 


me me 


8176 


8155 


8162 


8165 


8163 


8169 


8164 


8170 
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TRPREG 017404 2664 
TRIVEC= 4's ty 1494 
T$T1 03374 149 81514 8178 
TST10 006130 1584 
TST11 006346 159% 
Tett¢ 006564 816084 
TST1 007002 81614 
TST14 007220 HEH 
TST15 0074356 16354 
TST16 §©007654 81644 
TST17 §©010062 81654 
Ea 003544 81528 
TST20 010270 81664 
TST21 010476 81674 
Vege 010704 81694 
TST2 011112 81708 
TST24 =©.011320 81714 
TST25 oti 366 8172" 
TST26 4 =©011734 81754 
ba 012142 81764 
TST 004132 81534 
TST4 004520 81544 
TST5 005106 81554 
TST6 005474 81564 
TST7 005712 81574 
TTST 016332 81784 
TXCSR 001726 81469# 8151* 8152e 8153* 8154* 8155" 8156* 8157* 
8163" 8164" 8165" 8166" 8167* 8169* 8170" 8171* 
8226* 8227" 8228 
TXDBUF 001732 81494 8156* 8157* 8158" 8159 8160* 8161" 8162+ 
8169 8170" 8171* 8172* 8175" 8176" 8211" 
TXDONE= 000200 81498 
TXINTE= 000100 81498 
TYPE = 104401 8149 81784 8269 
TYPOC = 104402 81784 
TYPON = 104404 81784 
TYPOS = 104403 81784 
‘USER = 000000 81494 
vo1D = 00000 814984 
WRDCNT 014130 81784" 
ERO 012432 81784 
SAPTHD 002136 81494 
SASTAT= eeeeee YJ 7009 
YC 000024 70094 
$ATY1 000000 70094 
SATY3 000006 70094 8178 
S$ATY4 000016 70094 8178 
SAUTOB 001434 81494 
ASE 001602 81498 
SBDADR 001422 81494 
SBDDAT 001426 81494 
$BELL 001516 81494 8178 
$COw! 001606 81494 
W2 001610 1494 
SCHARC 013544 1faee 
SCKSWR= eeeeee 17 


8158* 
8172* 


8163* 


8159* 
8175* 


8164* 


8160* 
8176* 


8165* 


8161 
8207+ 


8166* 


SEQ 0081 
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81678 
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al 
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oO 
BSBsBsz 
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onunw 


OWN AARININYN SUITE & FEW SUI 00 "OO 


FMEA SMWNAONM EA SMO SFNUOPOG SMO SVUWESAES 


S$MADR1 001560 
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sbe0tt= 
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81494" 
81494" 


COO 3] = = 
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SEQ 0082 


, F 
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30 82 sie. . . ePene 


CNDUTA.M11 =O T= CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0083 
SMADR 01564 1498 
ant | pO te85 1498 
SMADR4 001574 1498 
SMAIL pnt 2ee 1498 8178 
SMAMS1 1556 1498 
AMS 01562 1498 
SMAMS 01566 1498 
SMAMS4 001572 1494 
SMBADR 002140 1494 
SMFLG Ot ets 0094* 
SMSGAD 00154 7009* 81498 
SMSGLG Bo) ase oe * He 
SMSGTY 001 ¢$ 7909« 1494 
SMTYP1 001557 Rice 
SMTYP2 001563 1498 
SMTYPS 001567 81498 
SMTYP4 001573 81494 
SMXCNT 016646 81784 
$N = 000000 68364 81784 
SNULL 0014546 81494 8178 
SNWTST= 000000 8151#@ 81528 8153# 8154# 81558 8156# 8157@ 8158 81598 81608 8161 81628 81634 
81644 81654 81664 81678 81698 81708 81718 81728 81758 81768 
SOCNT 015002 81784 
—E 01500 81784 
SOVER 016626 81784 
SPASS 001534 8149a* 8178 
SPASTM 002144 81494 
SPWRON 015006 8149 81788 
SQUES 001522 81498 8178 
SRDOCHR= eeeeere Y 8178 
SRODEC= seeeee 8178 
SROLIN= *eeeee 8178 
SRDOCT= eeeeee 8178 
SREGAD 001460 81498 
—€GO 001462 81494 8178 
SREG1 001464 81498 8178+ 
SREG 001466 81498 8178 
SREG 001470 81498 8178 
SREGS 001472 81498 8178 
SREGS 001474 81498 8178 
= eeeeee 8178 
SSAVRE= eeeeee 8176 
SSCOPE 016314 8149 81788 
SSETUP= 000017 81494 8178 
$STUP = 177777 81494 
SSVLAD 016572 81784 
SvPC = 002136 81494 
SWR = 177400 64968 8149 8151 8152 8153 8154 8155 8156 8157 8158 8159 8160 8161 
8162 81635 8164 8165 8166 8167 8169 8170 8171 8172 8175 8176 8178 
SSWREG 001550 81498 
SSWRMK= 000000 8178 
STESTN 001532 81498 8178 
STIMES 001512 8149#e 8178 
K 001446 81498 Bi) 
001444 81498 17 
STMPO 001476 81498 


G6 7 
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CNDUTA.M11 —- 30-OCT-82 11:16 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0086 
STMP1 001500 149# 8151* 8152e 8153* 8154" 8155" 8156" 8157" 8158 8159 8160" 8161*  8162¢ 
Biss Blue if lobe lore 169* 176s 171* 8172* 8175* 3196" 3292s Ha 
7 e 
$STMP 001502 1494 63 le 3e 248 23: 6 4e * Sie 5e 
STMP 001504 Pty 8 $5 $850 242e ee 58 e ; 35s = vo -_ 
STMP4 po eye Bitee 
im $0080 oie B1Sia4 1524 8153 8154 8155 8156 8157 8158 8159 8 
= a £ & a a 1588 159# 1608 1614 1624 
81654 81644 Blosa 81664 81678 8169 81708 81718 81728 81758 81764 . _ 
TPB Nef 81498 8178 
STPFLG 00145 81494 8178 
TPS 001450 g1e3" HES 
STRAP 016650 149 81784 
STRAP2 016672 81784 
TRP = 000015 81784 
STRPAD 016704 81784 
™ 002142 81498 
STSTNM 001402 8149a2 8178+ 
STYPBN= *eeeee YJ 8178 
STYPDS= eeeeee 8178 
STYPE 013066 7009 81788 
STYPEC 013300 81784 
STYPEX 013346 81784 
STYPOC 01460 81784 
STYPON 014620 81788 
STYPOS 01456 81784 
IT 001540 81494 
SUNITM 002146 81494 
W 001552 81494 
SVECT1 001576 81494 
SVECT2 001600 81494 
SXTSTR 016376 81788 
SOFILL 015003 8178a* 
$4 = teeeee 8178 
° = 017464 70094 81498 8151 8152 8153 8154 8155 8156 8157 8158 8159 8160 8161 
he Fe 8163 8164 8165 8166 8167 8169 8170 8171 8172 8175 8176 81788 
-BEGIN 003310 81494 8178 
-CONVR 013760 81784 
EOP 012350 81784 
-INSTE 013456 81784 
INSTR 013350 817684 
~INST1 013370 81788 
MSG 013372 81784 
-PARAM 013466 81784 
-PFAIL 015006 8149 81788 
-RESOS 013726 81784 
-SAVOS 013666 81784 
-SCOPE 016314 81784 
-SCOP1T 013044 81784 
-SETFL 014136 81784 
~START 002152 81494 8178 
-SASTA= eeeeee VJ 7009 
$x = 002136 81498 


CNDUT=A MACY11 


CNDUTA.M11 
COMMEN 12608 
ENDCOM 15788 
ERROR 81494 
8165 
ESCAPE 19758 
GETPRI 13128 
GETSWR 17718 
MULT 44848 
NEWTST 16268 
8164 
POP 21538 
PRGEND 61148 
PRGFRT 72498 
PUSH 1454 
PUSS YF 9854 
REPORT 54634 
RSE TUP 74448 
C 68094 
SCOPE 81498 
8165 
C1 68274 
SETPRI 12798 
SETTRA 64944 
SETUP 13378 
SKIP 17334 
SLASH 15178 
SPACE 81494 
STARS 14858 
8163 
SWRSU 14534 
TRMTRP 81784 
TSE TUP 74564 
8171 
TYPBIN 20884 
TYPDEC 20584 
TYPNAM 18268 
TYPNUM 20258 
TYPOCS 19788 
TYPOCT 19418 
TYPTXT 18948 
SBEGIN 67187 
SBINAR 79328 
SBUFFE 71238 
S‘ABLE 80008 
SCATCH 65878 
Ck 69634 
SCLRVE 67334 
SCONVR 71242 
SDNA 78334 
SEOP 68814 
SGETFL 67634 
SGETPA 67538 
SGETSY 67698 
SHEADE 64988 
SINSTR 70108 
$1S08 77618 
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000900000000 00 00 Co 00 Co 

a Idee 
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8160 


8161 


8162 


8163 


8159 


8160 


8159 


8160 


8161 


8160 


8161 


8162 


8161 


8162 


8160 


8167 


8163 


8162 


8163 


8161 


8169 


SEQ 0085 


8164 


8163 


8164 


8162 


8170 


7 
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CNDUTA.M11 “OC T-82 11:16 CROSS REFERENCE TABLE == MACRO NAMES SEQ 0086 
SMATCH 75708 
SMRR fale 
SMRRW 73798 
SMRW 74168 
$MSG 70974 8178 
SNEE he 8178 
SPARAM 0408 8178 
SPFAIL 71798 8178 
SPOKE 75534 8156 8157 8158 8159 8160 8161 8162 8163 8164 8165 8166 8167 8169 8170 
8171 8172 8175 3178 
POKER 75588 #8151 o128 815 8154 8155 
SRCNET 80128 8152 815 8154 8155 
SRECAC 74928 
SREG rege 8178 
SRESET 73758 8151 8152 8153 8154 8155 8156 8157 8158 8159 8160 8161 8162 8163 8164 
8165 8166 8167 8169 8170 8171 8172 8175 8176 
SRXACT 74698 
SSCOPE 68324 8178 
$SCcOPi 69984 8178 
SSETFL 67898 8178 
SSETVE 659 8149 
SSTART 66768 8149 
SSTRIP 7802# 8151 
SSYMBO 65148 8149 
SSYNCR 7564# 8151 8152 8153 8154 8155 
STRPAR 78848 8164 8165 8166 8167 8169 8170 8171 8172 8175 8176 
STSTNO 68394 8151 8152 8153 8154 8155 8156 8157 8158 8159 8160 8161 8162 8163 8164 
8165 8166 8167 8169 8170 8171 8172 8175 8176 
isu =73584 
SVARIA 66148 8149 
SWORDF 77008 
00 436 76508 
RDP 77284 
SSCMRE 81494 
SSCMIM 81498 
SSESCA 17114 81494 
Wl 16628 81498 8151 8152 8153 8154 8155 8156 8157 8158 8159 8160 8161 8162 8163 
escet Sig. 8165 8166 8167 8169 8170 8171 8172 8175 8176 


INIT 5 81494 8269 
-SETUP 121358 64938 8149 
- SWRHI 04a 


-SAPTB «51098 64958 8 
-SAPTH §=65370# 64958 8149 
-SAPTY 55478 6495 7009 
-SASTA = 54178 

-SCATC 9328 64938 

-SCMTA =610478 8666938 =—8149 
-$0B2D 46868 

-$0B20 48128 

-SDlv 45878 


CNDUT=A MACY11 H 
CNDUTA.M11 3 
. SEOP Shed 
~SERRO 008 
-SERRT 83 a 
-SMULT 45238 
.$P 42298 
-SRAND 43078 
. SRODE 8918 
. SRDOC 7978 
- SREAD 3954 
~SR2AZ 9584 
- SSAVE 969 
“Feeee 47718 
-$SB20 48748 
-SSCOP 26548 
-SSIZE 43618 
~SSUPR 491 
STRAP 40738 
-STYPB 2878 
-STYPD 2094 
STYPE 985a 
.STYPO 1128 
-$40CA 9728 
- ABS. 017464 


ERRORS DETECTED: 
ME: 17 16 1 SECONDS ’ CNDUT2.M11,CNDUTA.M11 


CNDUTA 


RUN-TIME 
RUN-TIME RATIO: 82/35=2.5 


CORE U 


SED: 43K 


J 7 
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64934 
64948 e178 
64948 178 
64948 
64948 8178 
64948 8178 
6493#@ 8178 
64948 8178 
000 
0 
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